设为首页收藏本站

嘻皮客娱乐学习网

 找回密码
 中文注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
开启左侧

[OFFICE] 几句代码解除excel工作簿保护密码

[复制链接]
发表于 2019-3-5 11:56:41 | 显示全部楼层 |阅读模式
有的朋友为了使工作簿中表格数据不被泄露,采用如下图所示操作:先将有关表格隐藏,然后对工作簿设置密码保护。这样其他人不知道密码就无法把隐藏的表格显示出来。但是Excel对工作簿保护是极为脆弱,在网上下载专门破解工具就能轻易取得密码进行破解。
本例主要是说明有另一方法,即不需借助工具对工作簿破解,只需几句简单VBA代码,也能把设置密码保护工作簿所有表格显示出来。希望需要保护数据秘密的朋友以此为戒,采取其他更有效办法。
代码使用方法: 先点击被加密工作簿,接着运行下面4句话。

  1. Sub test()
  2.     ActiveWorkbook.Sheets.Copy
  3.     For Each sh In ActiveWorkbook.Sheets
  4.         sh.Visible = True
  5.     Next
  6. End Sub
复制代码



如果只是取消工作簿保护密码,不用把隐藏的工作表显示出来的话,可以更简洁

  1. Sub test()
  2.     ActiveWorkbook.Sheets.Copy
  3. End Sub
复制代码



其实就是用VBA代码将设置了工作簿保护的工作簿里面的所有表格都复制到一个新的工作簿中去。

即便当前的excel被加密,vbe窗口不能访问,也可以在一个新建的文档里把代码写进去,在那个加过密的文档里运行这个宏,就解决了。
回复

使用道具 举报

精彩推荐

小黑屋|手机版|嘻皮客网 ( 京ICP备10218169号|京公网安备11010802013797  

GMT+8, 2019-12-15 02:46 , Processed in 12.240470 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表