工作表保护密码忘了怎么办？

【声明：本文只是技术探讨，不对此代码的效果负责，请勿用于非法用途。】

很多人喜欢使用密码保护工作表，这个保护可以起到防止意外修改的作用，但是其保护强度很一般，当然这不是本文要讨论的话题。

设置了密码，天长日久忘记了，怎么办？搬起石头砸自己脚，悔该当初 … 客观莫急，去掉这个密码保护很简单。

按<Alt+F11>快捷键打开VBE窗口，在代码窗口中粘贴如下代码，运行，哒哒 … 回到了从前

Sub UnProtectSheets()
    Application.DisplayAlerts = False
    On Error Resume Next
    Dim objSht As Worksheet
    For Each objSht In Worksheets
        With objSht
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
            .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
            .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
            .Unprotect
        End With
    Next
    Application.DisplayAlerts = True
    Set objSht = Nothing
End Sub