excel解锁密码忘记了怎么办？四句VBA代码教你瞬间解锁

日常工作中，有时为了防止别人修改表格结构或者表格中的公式，我们经常把工作表锁加密锁定。但是如果密码忘记了，该如何办呢？或者想解开别人设置密码的工作表盖怎么做呢？

如果你这个时候百度的话，大多数答案给的解决方法就是将文件后缀名修改为RAR，然后再寻找某个代码，然后再巴拉巴拉一堆，步骤简直不要太多。我想说这种方法太复杂了。有比他简单10倍的方法。

VBA四句代码搞定

❶打开excel→开发工具→点Visual Basic（打开代码编辑界面）

❷插入模块→将下面的代码粘贴进去模块

Sub 删除密码() '利用Excel的BUG实现清除密码'对工作表加密，记住其中Protect的参数变化 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True ActiveSheet.Unprotect '解密End Sub

❸点击绿色小三角，运行代码，瞬间破解

是不是很简单？比改文件后缀查找删除密码代码方便多了。

你学会了吗？