excel中利用VBA保护工作表或撤消工作表保护

来源:转载

在Excel中要对工作表进行保护,可以通过单击菜单“工具→保护→保护工作表”的方法来进行。如果要用VBA来保护工作表或撤消工作表保护,可以用下面的代码:

Public Sub Protect_Sheet()

'保护工作表,设置密码为“password”

ActiveSheet.Protect Password:="password"

End Sub

上述代码可以对活动工作表进行保护,并设置保护密码为“password”。下面的代码撤消活动工作表保护:

Public Sub Unprotect_Sheet()

'用已知密码“password”撤消工作表保护

ActiveSheet.Unprotect Password:="password"

End Sub

这种撤消工作表保护的方法必需用已知密码进行,如果密码不正确,会产生一个错误,如图。

 

分享给朋友:
您可能感兴趣的文章:
随机阅读: