Excel VBA技巧：暴力破解所有工作表的密码保护

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