VBA 如何设置密码保护

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

你可能感兴趣的:(VBA 如何设置密码保护)