工作表保護一般用于設置工作表全部或部分區域不能被編輯，需要編輯時要先輸入密碼解除保護，隻對當前工作表有效。當忘記密碼後，可采取遍曆撞門法破譯出當時設置的密碼，但這種方法有點小題大做了，除非想破解别人的表格密碼，事後還要用原密碼重新設置保護。若是這個用途，還是提醒不要做為好。今天提供兩種取消保護的方法，讓表格恢複正常。

方法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運行一下代碼。

聲明：以上方法禁止用于非法用途，請慎重！

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!