excel保护密码破解方法-excel文件密码破解

在日常工作中,很多人会设置密码对工作表和工作薄进行保护,避免表格被他人修改。但是,一旦忘记密码就很麻烦。经常有人问如何破解密码,今天就给大家分享一下excel保护密码的破解方法。

工作表保护破解

工作表保护一般用于设置工作表全部或部分区域不能被编辑,需要编辑时要先输入密码解除保护,只对当前工作表有效。当忘记密码后,可采取遍历撞门法破译出当时设置的密码,但这种方法有点小题大做了,除非想破解别人的表格密码,事后还要用原密码重新设置保护。若是这个用途,还是提醒不要做为好。今天提供两种取消保护的方法,让表格恢复正常。

方法1:

将文件名后缀改为.zip变成压缩文件样式,双击这个压缩文件——双击xl文件夹——双击worksheets文件夹,找到忘记密码的表单序号.xml文件如sheet2.xml,复制到桌面,右键用记事本打开,找到<sheetProtection scenarios="1" objects="1" sheet="1" password="CF7A"/>删掉,保存文件关闭,将桌面的sheet2.xml文件复制粘贴到压缩文件夹替换掉原文件。关闭压缩文件夹,右键将文件后缀修改为原后缀如07版为.xlsx。再打开文件表格的表单保护就没有了。不过这个方法不适用于03版。

方法2:

打开VBA编辑器,插入模块,在模块内粘贴下面的代码

Sub 取消保护()
Sheets("sheet2").Protect AllowFiltering:=True
Sheets("sheet2").Unprotect
End Sub

鼠标放在代码区域,按F5运行一下代码。表单就没有密码保护,可以自由编辑了。代码中的sheet2为要取消密码保护的表单名。

若有多个表单想取消密码保护,可用下面的代码:

Sub 取消保护()
ActiveSheet.Protect AllowFiltering:=True
ActiveSheet.Unprotect
End Sub

想要取消哪个表单的密码保护,就选中哪个表单后,运行代码就可以了。

若不想一个个的取消,想一次性取消工作薄所有表单的密码保护,代码可修改为:

Sub 取消保护()
For i = 1 To Sheets.Count
Sheets(i).Protect AllowFiltering:=True
Sheets(i).Unprotect
Next
End Sub

工作薄保护破解

工作薄密码保护设置后,工作薄无法新建、删除表单或无法关闭,具体和设置密码保护时的选项有关。忘记密码后,我们可用VBA方式将该工作薄复制一份,在复制的新工作薄中包含原工作薄的所有表单和数据,只是没有被保护,可以随意操作。

具体方法:

打开VBA编辑器,插入模块,粘贴下面的代码:

Sub 取消工作薄保护()
ActiveWorkbook.Sheets.Copy
For Each sht In ActiveWorkbook.Sheets
sht.Visible = True
Next
End Sub

鼠标放在代码区域,按F5运行一下代码。

声明:以上方法禁止用于非法用途,请慎重!

excel保护密码破解方法

推荐阅读