EX-VBA:迄今为止最简单的Excel工作表密码解除方法

2021-08-30 10:32:55 浏览数 (1)

不知道是哪位大神发现的这么一个类似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

在此再次感谢大神们的分享!同时,一门技术是好是坏,全凭个人掌握,用于益处是为好……

vba

0 人点赞