關(guān)閉Excel工作簿時(shí)如何自動(dòng)保護(hù)所有工作表？

通常，您可以使用Excel中的“保護(hù)工作表”或“保護(hù)工作簿”功能通過密碼手動(dòng)保護(hù)工作表或整個(gè)工作簿。 但是，如果要在關(guān)閉工作簿時(shí)使用密碼自動(dòng)保護(hù)所有工作表，該怎么辦？ 本文將向您展示實(shí)現(xiàn)該目標(biāo)的VBA方法。

使用VBA代碼關(guān)閉Excel工作簿時(shí)保護(hù)所有工作表

使用VBA代碼關(guān)閉Excel工作簿時(shí)保護(hù)所有工作表驚人的！ 在 Excel 中使用高效的選項(xiàng)卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時(shí)間，并減少數(shù)千次鼠標(biāo)單擊！

若要在關(guān)閉工作簿時(shí)自動(dòng)保護(hù)所有工作表，請應(yīng)用以下VBA代碼。

1.在要關(guān)閉文件時(shí)要保護(hù)所有工作表的工作簿中，請按 其他 + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，雙擊 的ThisWorkbook 在左窗格中，然后將VBA代碼下面的內(nèi)容復(fù)制到“代碼”窗口中。 看截圖：

VBA代碼：關(guān)閉工作簿時(shí)保護(hù)所有工作表

Private Sub Workbook_BeforeClose(Cancel As Boolean)Update by Extendoffice 2018/1/24Dim xSheet As WorksheetDim xPsw As StringxPsw = ""For Each xSheet In WorksheetsxSheet.Protect xPswNextEnd SubCopy

Tips:

1）在代碼中，請?jiān)趚Psw =“”行中指定密碼。2）如果您只想在關(guān)閉工作簿時(shí)自動(dòng)保護(hù)指定的工作表，則下面的VBA代碼可以為您提供幫助。Private Sub Workbook_BeforeClose(Cancel As Boolean)Sheets("Sheet1").Protect "123"ActiveWorkbook.SaveEnd SubCopy

3.然后按 其他 + Q 鍵以關(guān)閉“ Microsoft Visual Basic應(yīng)用程序”窗口。

完成上述步驟后，關(guān)閉工作簿時(shí)，所有工作表或指定的工作表將自動(dòng)受到保護(hù)。

:

1.您必須將工作簿另存為Excel啟用宏的工作簿文件格??式。2.請轉(zhuǎn)到特定的工作表，單擊 進(jìn)入步驟三：發(fā)送 > 取消保護(hù)表。 然后鍵入您在VBA代碼中指定的密碼以取消保護(hù)此工作表。相關(guān)文章：如何在Excel中受保護(hù)的工作表中使用下拉列表？如何在不保護(hù)Excel中整個(gè)工作表的情況下鎖定指定的單元格？如何在Excel中不保護(hù)工作表的情況下隱藏公式但顯示結(jié)果？

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel