不知道是哪位大神发现的这么一个类似Excel的软件漏洞一样的工作表密码破解方法,太牛逼,分享如下,供忘记密码的朋友应急使用:
『 动画解读 』
对于设置了工作表密码的工作簿,打开后,具体操作步骤如下:
Step-01:通过菜单【开发工具】-【Visual Basic】进入VBA编辑界面
Step-02:在VBA编辑窗口的【立即窗口】中逐步执行以下代码(输完一句回车后再输入另一句并回车其中sheet1为需要破解密码的工作表的名称)
sheet1.Protect AllowFiltering:=true
sheet1.unProtect
逐步执行这两行代码后,工作表的密码将被解除!!!
如果打开VBA编辑窗口时没有立即窗口,可以通过菜单【视图】-【立即窗口】调出来,如下图所示:
『 扩展应用 』
如果需要批量解除的,可以自行加入循环控制语句,写成一个过程。代码参考如下(将代码复制放在ThisWorkbook下,然后运行):
Sub clsWkShtPwd()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.unprotect
Next
End Sub
在此再次感谢大神们的分享!同时,一门技术是好是坏,全凭个人掌握,用于益处是为好……