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

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