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