用VBA取消Excel全部工作表保护

在工作表中，按Alt F11进入VBE窗口，将代码拷贝粘贴进去模块，按F5运行。

Option Explicit

Sub RemoveAllSheetPwd()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In Sheets
        sh.Protect AllowFiltering:=True
        sh.Unprotect
    Next
    Application.ScreenUpdating = True
    MsgBox "已取消全部工作表保护"
End Sub