破解VBA工作表密码代码

Mengkelyu

不用密码破解工作表的代码。亲测可用。
转载于：https://www.tspweb.com/key/excel vba代码加密.html

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

MsgBox "ok"

End Sub