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

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

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

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

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

1. 在您想在关闭文件时保护所有工作表的工作簿中，请按Alt + F11键打开Microsoft Visual Basic for Applications窗口。

2. 在Microsoft Visual Basic for Applications窗口中，双击左侧窗格中的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

提示：

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

3. 然后按Alt + Q键关闭Microsoft Visual Basic for Applications窗口。

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

备注：

相关文章：

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