526互联

撤除Excel的密码保护《工作表、工作簿》

发布时间 2023-12-13 17:58:57作者: 734969
1、打开excel
2、alt+F11
3、模块

4、输入
Sub 工作簿密码破解()

ActiveWorkbook.Sheets.Copy

    For Each sh In ActiveWorkbook.Sheets

        sh.Visible=True

    Next

End Sub

Sub 密码破解()

Dim pj As Worksheet

    For Each pj In Worksheets

        pj.Protect AllowFiltering:=True

        pj.Unprotect

    Next

End Sub

5、运行
6、查看新表