破解excel密码-VBA代码破解工作表密码保护

昨天给大家分享了怎么利用修改后缀名破解工作表保护，但是还是有很多同学操作后不能实现效果，那么今天给大家分享一段VBA代码来破解工作表保护。

---

代码：

Sub 破解()

ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

1. 复制上方代码来到开发工具选项卡（没有开发工具选项卡的同学，在文件-选项-自定义功能区调出来）

   
   

2. 然后点击Visual Basic 进入代码窗口 （或者按快捷键 ALT+F11）

3. 在插入选项卡插入一个模块，然后把刚才复制的代码粘贴到模块里

4. 选中所保护的工作表任意单元格，点击模块上方的运行-运行子过程（或者按F5运行代码）

5. 之后会弹出输入密码的对话框，点击取消 就破解工作表保护了

整体效果：