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

有的朋友为了使工作簿中表格数据不被泄露，采用如下图所示操作：先将有关表格隐藏，然后对工作簿设置密码保护。这样其他人不知道密码就无法把隐藏的表格显示出来。但是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窗口不能访问，也可以在一个新建的文档里把代码写进去，在那个加过密的文档里运行这个宏，就解决了。