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


如果你这个时候百度的话,大多数答案给的解决方法就是将文件后缀名修改为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


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



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


你学会了吗?