昨天给大家分享了怎么利用修改后缀名破解工作表保护,但是还是有很多同学操作后不能实现效果,那么今天给大家分享一段VBA代码来破解工作表保护。
代码:
Sub 破解()
ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Unprotect
End Sub
复制上方代码来到开发工具选项卡(没有开发工具选项卡的同学,在文件-选项-自定义功能区调出来)
2. 然后点击Visual Basic 进入代码窗口 (或者按快捷键 ALT+F11)
3. 在插入选项卡插入一个模块,然后把刚才复制的代码粘贴到模块里
4. 选中所保护的工作表任意单元格,点击模块上方的运行-运行子过程(或者按F5运行代码)
5. 之后会弹出输入密码的对话框,点击取消 就破解工作表保护了
整体效果: