VBA破解工作表密码

破解
在日常工作中,难免忘记工作表的密码,眼巴巴的看着数据却不能改动。
前阶段分享过一个破解工作表密码的VBA,代码相当长。
今天分享个简短的代码。
原理是利用Excel的BUG破除密码。
新建模块并输入如下代码:
  1. Sub 清空密码()    
  2.   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True   
  3.   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True   
  4.   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True   
  5.   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True   
  6.   ActiveSheet.Unprotect    
  7. End Sub  
运行宏代码。工作表密码取消之。
分享到: