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  
运行宏代码。工作表密码取消之。
分享到:

7 条评论

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

昵称
  1. 北京摄影

    给力,bug都找出来了。

  2. 上善若水

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

    1. Kael.Z

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

  3. 北京婚纱照工作室

    这个一点也看不懂呀

    1. Kael.Z

      看不懂也很正常,哈

  4. 涡轮流量计

    呵呵,技术高手啊

  5. 神经衰弱的症状

    学习学习,真好