今天把过去的一篇推文重新整理一下，提供两种解除工作表加密的方法。

一种是傻瓜模式的VBA，复制运行以下代码，即可抹除当前工作簿所有工作表的保护加密。

Sub UnProtct()
    MsgBox "破解提示：当要求输入密码时请点击取消！”"
    Application.DisplayAlerts = False
    On Error Resume Next
    Dim sht As Worksheet
    For Each sht In Worksheets
        With sht
            .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
    MsgBox "ok"
End Sub

另外一种步骤稍多，适合惧怕VBA，更喜欢动手动脚的朋友们。

首先，将Excel工作簿的后缀修改为rar，比如演示文件.xlsx，修改为演示文件.rar。

双击该文件，打开方式选择WinRAR。

依次双击打开xl→worksheets→需要解除保护密码的工作表名称，本例为sheet1，打开的方式选择记事本。

在记事本内，将以下内容选中删除后，关闭保存。

"<sheetProtection....../>"

此时系统会询问是否希望在压缩文件中更新它？选择是。

最后关闭所有对话框，将文件后缀名从rar修改回xlsx，以Excel的名义打开它，便可以发现相关工作表的保护设置已被全部撤除。

技术交流，软件开发，欢迎加微信xwlink1996