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.freedidi.com/2684.html
THE END