秒破Excel工作表加密

工作表加密,工作时,有时会用到,随时就给添加了。

后来想再修改时,发现搞不了,加密了。

其实工作表加密很容易就能解密,记得不是工作薄啊。

复制运行以下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

工作薄的密码如果忘记,那只有暴力破解一途了。唯一的机会就是努力回忆密码,不然就是死刑了。

您可能也喜欢

微信扫一扫,分享到朋友圈

秒破Excel工作表加密
返回顶部

显示

忘记密码?

显示

显示

获取验证码

Close