返回目录:excel表格制作
工作表保护一般用于设置工作表全部或部分区域不能被编辑,需要编辑时要先输入密码解除保护,只对当前工作表有效。当忘记密码后,可采取遍历撞门法破译出当时设置的密码,但这种方法有点小题大做了,除非想破解别人的表格密码,事后还要用原密码重新设置保护。若是这个用途,还是提醒不要做为好。今天提供两种取消保护的方法,让表格恢复正常。
方法1:
将文件名后缀改为.zip变成压缩文件样式,双击这个压缩文件——双击xl文件夹——双击worksheets文件夹,找到忘记密码的表单序号.xml文件如sheet2.xml,复制到桌面,右键用记事本打开,找到
方法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运行一下代码。
声明:以上方法禁止用于非法用途,请慎重!