使用Excel的时候,我们会碰到一种工作簿保护权限的加密方式。也就是设置工作簿保护权限之后,除非我们知道工作簿保护密码,不然无法对工作表进行新增或者是删除。
如上图所示,当我们点击审阅—保护工作簿,输入保护密码后,我们在点击工作表名称的时候。右键删除插入工作表的选项都变成了灰色,无法对工作表进行增加或者是删除。今天我们就来通过一段代码,一秒快速破解工作簿保护设置。效果图如下:
第一步:鼠标放到工作表名称上面,点击右键—选中查看代码或者按Alt+F11,进入到vba代码编辑窗口。如下图所示:
第二步:鼠标点击左边工程菜单栏中Thisworkbook,点击右键—插入—模块,新增一个模块内容,如下图所示:
第三步:将以下破解代码复制到模块代码窗口,然后点击上方运行—运行子窗体或过程,这样工作簿保护权限就被自动撤销了,我们可以新建或删除工作表了。如下图所示:
代码如下:
Sub 破解工作簿保护权限()
Ac
For Each sh In Ac
= True
Next
End Sub
现在你学会如何快速破解工作簿保护密码了吗?