关闭Excel工作簿时如何自动保护所有工作表？

通常，您可以使用Excel中的“保护工作表”或“保护工作簿”功能通过密码手动保护工作表或整个工作簿。 但是，如果要在关闭工作簿时使用密码自动保护所有工作表，该怎么办？ 本文将向您展示实现该目标的VBA方法。

使用VBA代码关闭Excel工作簿时保护所有工作表

使用VBA代码关闭Excel工作簿时保护所有工作表

若要在关闭工作簿时自动保护所有工作表，请应用以下VBA代码。

1.在要关闭文件时要保护所有工作表的工作簿中，请按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，双击 的ThisWorkbook 在左窗格中，然后将VBA代码下面的内容复制到“代码”窗口中。 看截图：

VBA代码：关闭工作簿时保护所有工作表

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

Tips:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3.然后按 其他 + Q 键以关闭“ Microsoft Visual Basic应用程序”窗口。

完成上述步骤后，关闭工作簿时，所有工作表或指定的工作表将自动受到保护。

:

相关文章：

• 如何在Excel中受保护的工作表中使用下拉列表？
• 如何在不保护Excel中整个工作表的情况下锁定指定的单元格？
• 如何在Excel中不保护工作表的情况下隐藏公式但显示结果？