工作表加密,工作时,有时会用到,随时就给添加了。
后来想再修改时,发现搞不了,加密了。
其实工作表加密很容易就能解密,记得不是工作薄啊。
复制运行以下VBA代码,即可破解当前活动工作簿所有工作表的保护密码。
Sub UnProtct() Dim sht As Worksheet, shtAct As Worksheet MsgBox "破解提示:当要求输入密码时请点击取消!”" Application.DisplayAlerts = False On Error Resume Next Set shtAct = ActiveSheet For Each sht In Worksheets With sht .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, _ AllowFiltering:=True, AllowUsingPivotTables:=True .Unprotect End With Next shtAct.Select Application.DisplayAlerts = True MsgBox "ok" End Sub
工作薄的密码如果忘记,那只有暴力破解一途了。唯一的机会就是努力回忆密码,不然就是死刑了。