昨天给大家分享了怎么利用修改后缀名破解工作表保护,但是还是有很多同学操作后不能实现效果,那么今天给大家分享一段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. 之后会弹出输入密码的对话框,点击取消 就破解工作表保护了 整体效果: |
| 本文出处: http://www.toutiao.com/a6438854165842313473/ |
|
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|