不知道密码,如何解除excel的工作表中的保护

在我们的日常工作中,工作表不希望同事改动内容,我们通常会在审阅的,保护工作表里面,设置一个密码

这样同事打开你的工作表,只能查看数据,不能编辑改动,编辑会弹出警告提示

有的时候,你设置了保护工作表密码,你自己想编辑的时候,取消保护工作表的密码忘记了,你也编辑不了,这个时候就尴尬了

今天教大学两种方法来破解工作表的保护

方法一,使用压缩包方法
将文件重命名,将后缀改成.rar格式

直接双击打开压缩包,找到xl/worksheets下,是哪个工作表被保护了,就选择哪个工作表,用内部查看器打开

按CTRL+F查找内容protect的位置,然后选中<>之间的内容,进行delete删除掉

关闭的时候,在压缩包里面要选择更新内容,然后将.rar格式改回.xlsx格式,

双击打开表格文件,工作表的保护密码就被去除了,里面的内容也可以自由的编辑了

操作图解:

 

1、该后辍名

将忘记保护密码的工作簿名称修改为压缩文件的后辍名。如下图所示修改为rar的后辍名。

2、打开压缩包

双击打开压缩包文件,依次打开xl/worksheets文件夹。如下图所示。

3、修改工作表

根据自己保护的工作表的名称选择一个工作表,如sheet1.xml.将该文件复制一份到到桌面上,然后右键鼠标选择打开方式,以记事本方式打开,此时会看到出现一堆看不懂的代码。没关系,继续按照步骤操作。找到如图的蓝色区域内容全部删除。

4、替换掉源文件

将上述操作后的文件保存后拖拽回压缩包替换掉原文件。再将原来修改为RAR的后缀名改回原来的后缀名XLSX,就可以清除掉原来设置的保护工作表密码了。



方法二:使用VBA代码法
上述的方法如果多个工作表都有保护密码,要在多个表格里面搜索protect,处理起来还是比较麻烦,建议大家使用下面的VBA代码法,只需要一个复制粘贴即可搞定,多个工作表都可以同时去除

在开发工具,点击VBA,然后右键,插入一个模块

在模块里面输入代码,直接运行,就直接破解了

代码如下:

Sub 破解工作表密码()
Dim a As Worksheet
For Each a In Worksheets
a.Protect AllowFiltering:=True
a.Unprotect
Next
End Sub
你学会了么?动手试试吧~

密码忘记了,咋整?
现如今,密码这么多,搞不准哪天就给忘记了。那,这个保护后的工作表,咋整?

这里我分享2种方法给大家,建议留存

直接修改文件信息法

VBA跳过密码保护

这两种方法,只适合工作表的保护密码破解。

直接修改文件
将Excel文件修改为RAR文件格式(将Excel文件的后缀名修改.rar后缀)

打开压缩包,找到文件 xl\worksheets\工作表名.xml

用记事本打开该文件,并删除其中的 <
sheetProtection.............../>部分,并保存

将压缩包后缀名修改会.xlsx文件即可

VBA跳过保护密码
在受保护的工作表标签中,右键,菜单中选择"查看代码"

在VBA编辑器中,录入如下代码:

Sub 破解()

ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

运行该代码即可破解保护密

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据