在日常工作中，很多人会设置密码对工作表和工作薄进行保护，避免表格被他人修改。若是这个用途，还是提醒不要做为好。今天提供两种取消保护的方法，让表格恢复正常。忘记密码后，我们可用VBA方式将该工作薄复制一份，在复制的新工作薄中包含原工作薄的所有表单和数据，只是没有被保护，可以随意操作。
工作表保护一般用于设置工作表全部或部分区域不能被编辑，需要编辑时要先输入密码解除保护，只对当前工作表有效。当忘记密码后，可采取遍历撞门法破译出当时设置的密码，但这种方法有点小题大做了，除非想破解别人的表格密码，事后还要用原密码重新设置保护。若是这个用途，还是提醒不要做为好。今天提供两种取消保护的方法，让表格恢复正常。
方法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运行一下代码。
声明：以上方法禁止用于非法用途，请慎重！
