1.去除Excl整个工作簿密码的命令：
Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible=True
Next
End Sub
2.去除Excel工作表密码的命令：
 
Sub密码破解()
Dim pj As Worksheet
For Each pj In Worksheets
pj.Protect AllowFiltering:=True
pj.Unprotect
Next
End Sub
3.破 Excel开启密码的教程：https://www.lingdu80.com/2684.html...
