在日常工作中,很多人会设置密码对工作表和工作薄进行保护,避免表格被他人修改。但是,一旦忘记密码就很麻烦。经常有人问如何破解密码,今天就给大家分享一下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").UnprotectEnd Sub鼠标放在代码区域,按F5运行一下代码。表单就没有密码保护,可以自由编辑了。代码中的sheet2为要取消密码保护的表单名。
若有多个表单想取消密码保护,可用下面的代码:
Sub 取消保护() ActiveSheet.Protect AllowFiltering:=True ActiveSheet.UnprotectEnd Sub想要取消哪个表单的密码保护,就选中哪个表单后,运行代码就可以了。
若不想一个个的取消,想一次性取消工作薄所有表单的密码保护,代码可修改为:
Sub 取消保护()For i = 1 To Sheets.Count Sheets(i).Protect AllowFiltering:=True Sheets(i).UnprotectNextEnd Sub工作薄保护破解工作薄密码保护设置后,工作薄无法新建、删除表单或无法关闭,具体和设置密码保护时的选项有关。忘记密码后,我们可用VBA方式将该工作薄复制一份,在复制的新工作薄中包含原工作薄的所有表单和数据,只是没有被保护,可以随意操作。
具体方法:
打开VBA编辑器,插入模块,粘贴下面的代码:
Sub 取消工作薄保护() ActiveWorkbook.Sheets.Copy For Each sht In ActiveWorkbook.Sheets sht.Visible = True NextEnd Sub鼠标放在代码区域,按F5运行一下代码。
声明:以上方法禁止用于非法用途,请慎重!