1.首先申明全局变量
Public Const g_password As String = "****"
2.设置工作表受密码保护
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=g_password
3.验证密码,关闭保护
ActiveSheet.Unprotect Password:=g_password
1.首先申明全局变量
Public Const g_password As String = "****"
2.设置工作表受密码保护
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=g_password
3.验证密码,关闭保护
ActiveSheet.Unprotect Password:=g_password