Sub 取消工作表保护()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
, AllowFiltering:=True, AllowUsingPivotTables:=True
sht.Protect DrawingObjects:=False, Contents:=True, Scenarios:=
False, AllowFiltering:=True, AllowUsingPivotTables:=True
sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=
False, AllowFiltering:=True, AllowUsingPivotTables:=True
sht.Protect DrawingObjects:=False, Contents:=True, Scenarios:=
True, AllowFiltering:=True, AllowUsingPivotTables:=True
sht.Unprotect
Next
MsgBox "已破解"
End Sub
Sub 破解工作薄密码()
Dim sh As Worksheet
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub