Excel VBA之第六十二课

大家好，这节课我们学习工作表的Unprotect方法，利用Worksheet对象的Unprotect方法可以取消对工作表的保护。如果用户在保护工作表时没有设置保护密码，则可以直接使用Unprotect方法即可；如果在保护工作表时设置了密码，则在撤销保护工作表保护的时候需要写上保护密码。此外，如果工作表没有被保护，那么使用Unprotect方法方法一般情况下不会引起错误。

下面的例子给出了在撤销保护工作表时常用的方法和技巧：

Sub 解除密码保护()

Dim sh As Worksheet

Set sh = Worksheets("Sheet1")

'指定要撤销保护的工作表

sh.Unprotect

'没有密码保护时使用此语句

sh.Unprotect Password:="abcd"

'有密码保护时使用此语句，此处假设该工作表的保护密码为：abcd

Set sh = Nothing

End Sub

所以下次你可以不必去手动取消密码保护，使用编程一步搞定，个人感觉这个方法用得比较少~

快捷查看