日常工作中,有时为了防止别人修改表格结构或者表格中的公式,我们经常把工作表锁加密锁定。但是如果密码忘记了,该如何办呢?或者想解开别人设置密码的工作表盖怎么做呢?
如果你这个时候百度的话,大多数答案给的解决方法就是将文件后缀名修改为RAR,然后再寻找某个代码,然后再巴拉巴拉一堆,步骤简直不要太多。我想说这种方法太复杂了。有比他简单10倍的方法。
❶打开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
❸点击绿色小三角,运行代码,瞬间破解
是不是很简单?比改文件后缀查找删除密码代码方便多了。
你学会了吗?
,