Skip to main content
 Web开发网 » office教程 » excel教程

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

评论列表暂无评论
发表评论
微信