一键破解：工作簿保护和工作表保护

Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub

Sub jp()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.Unprotect
Next
End Sub