1.步骤：

Alt + F11 进去Excel开发者工具
插入——模块
复制粘贴下面命令
点击绿色三角形（运行宏）

2.去除Excl整个工作簿密码的命令：

1
2
3
4
5
6
7
8
9
10
11
Sub 工作簿解开密码()

ActiveWorkbook.Sheets.Copy

    For Each sh In ActiveWorkbook.Sheets

        sh.Visible=True

    Next

End Sub

3.去除Excel工作表密码的命令：

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub 密码解开()

Dim pj As Worksheet

    For Each pj In Worksheets

        pj.Protect AllowFiltering:=True

        pj.Unprotect

    Next

End Sub

via https://www.freedidi.com/2684.html