两种破解工作表加密的方法

方法一:复制运行以下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,更喜欢动手动脚的朋友们;

1、将Excel工作簿的后缀修改为rar,比如“演示文件.xlsx”,修改为“演示文件.rar”。

2、双击该文件(“演示文件.rar”),打开方式选择WinRAR。

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

4、在记事本内,将以下内容”<sheetProtection……/>”选中删除后,关闭保存。

5、此时系统会询问是否希望在压缩文件中更新它?选择——

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

发表回复

您的电子邮箱地址不会被公开。