清除Excel密码，简单高效

昨天分享的 Excel保护密码破解 方法虽然能得到可使用的密码文本，但多次测试后发现破解效率太低，对于复杂密码还会出现卡死现象。

如果不需要得到密码文本，可使用下述代码将Excel工作表、工作簿的保护密码清除，更加简单高效！

Sub 工作表破解()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Protect AllowFiltering:=True
        sh.Unprotect
    Next
End Sub

Sub 工作簿破解()
    ActiveWorkbook.Sheets.Copy
    For Each sh In ActiveWorkbook.Sheets
        sh.Visible = True
    Next
End Sub

参考：

Excel保护密码破解

ExcelVBA工程密码破解