Vba实现工作薄和工作表密码破解

一、案例叙述：
在excel中给工作薄和工作表设置了密码后忘记了原密码应该怎么办呢？别着急，几行代码帮你搞定。
加密图片：

 二、破解工作薄密码：
（1）代码部分：

'破解工作薄密码
Sub pojie1()

Dim sh As Worksheet


ActiveWorkbook.Sheets.Copy

For Each sh In ActiveWorkbook.Sheets

sh.Visible = True

Next
End Sub

（2）图片展示：
 三、破解工作表密码：

（1）代码部分：

'破解工作表密码
Sub pojie2()

    Dim a As Worksheet

    Application.DisplayAlerts = False

    On Error Resume Next

    For Each a In Worksheets

        a.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

        a.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True

        a.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True

        a.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

        a.Unprotect

    Next

    MsgBox "密码已被取消"

    Application.DisplayAlerts = True

End Sub

（2）图片展示：