EXCEl破掉工作表密码

 本文摘自：https://baijiahao.baidu.com/s?id=1655627074349621500&wfr=spider&for=pc

经过个人尝试，第一种方法于我不可用，不知道是不是我哪里出了问题！！！

若果想尽快破解，用第二种方法！！！

一、通过将XLSX后缀修改为rar

 

 找到【xl】文件夹，即上图的第3个文件夹，我们打开它，并找到worksheets文件夹，然后点开，可以看到几个sheet名称。

 

 

这时确认好，设置密码保护的工作表是哪个，然后双击打开它。 

我们上面设置密码的工作表是sheet1，所以我们打开sheet1，可以看到很多字符。

不用管它，我们只需要按Ctrl+F查找，查找内容为：Protect，然后选中包含protect内容的两个符号<>（包含这两个符号）之间的内容，全部点击delete删除即可，如下图所示。

 

 

删除后，关闭文档，这时会提示我们是否更新，我们选择【是】。

 

以上操作只针对一个工作表，如果excel有多个工作表，就比较麻烦

并且我也不知道哪里出问题了，解压了始终没有那个文文件，故不得不进行下一个方法-->

--------------------------------------------------------

二、在excel里面，打开VB

点击插入——>模块

 

 输入以下代码：

Sub 密码破解()
Dim pj As Worksheet
For Each pj In Worksheets
pj.Protect AllowFiltering:=True
pj.Unprotect
Next
End Sub

 

点击运行

 

 然后关掉VBA

 然后就OK了啦

 -----------------------------------

上面给大家分享的都是工作表设置保护密码的破解，那如果是整个工作簿设置密码保护，没办法插入或者删除工作表，要怎么破解呢？

还是给大家分享个小代码，代码的输入方法和上面类似：

Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible=True
Next
End Sub

大家可以去试试