VBA破解工作表密码

• VBA • 7 条评论 • •7,129 次查阅
破解
在日常工作中，难免忘记工作表的密码，眼巴巴的看着数据却不能改动。
前阶段分享过一个破解工作表密码的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  
运行宏代码。工作表密码取消之。
分享到：

7 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼
  1. 北京摄影

    给力，bug都找出来了。

  2. 上善若水

    好久没逛这里了，最近也在学了一点excel知识，希望以后能多向你请教。申请加个链接！http://wxg.me/

    1. Kael.Z

      已经添加了，请教不敢当，互相学习吧，我对你印象还是比较深的，呵呵~

  3. 北京婚纱照工作室

    这个一点也看不懂呀

    1. Kael.Z

      看不懂也很正常，哈

  4. 涡轮流量计

    呵呵，技术高手啊

  5. 神经衰弱的症状

    学习学习，真好