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

通常，在 Excel 中使用保护是为了防止用户编辑它。但是，我们总是会忘记保护工作表，但我们可以通过使用 VBA 应用程序来自动化它。本教程将帮助您了解如何自动保护所有工作表并在关闭 Excel 工作簿时进行保护。保护工作表没什么特别的；工作表将处于只读模式，我们将无法编辑工作表的内容。在本教程中，我们将使用保存工作簿命令保存整个工作簿。

自动保护所有工作表并在关闭 Excel 工作簿时进行保护

在这里，我们将为整个工作簿以及密码插入 VBA 代码。让我们看看一个简单的过程，了解如何自动保护所有工作表并在关闭 Excel 工作簿时进行保护。我们将使用 VBA 应用程序来完成我们的过程。

步骤 1

让我们考虑一个包含多个工作表的 Excel 工作簿，右键单击工作表名称并选择“查看代码”以打开 VBA 应用程序。然后双击此工作簿并将下面提到的程序复制到文本框中，如下面的图像所示。

示例

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Nirmal
   Dim xSheet As Worksheet
   Dim xPsw As String
   xPsw = "1234"
   For Each xSheet In Worksheets
      xSheet.Protect xPsw
   Next
End Sub

在上面的代码中，1234 是解锁工作簿的密码。

步骤 2

现在将工作表另存为宏启用模板，使用“Alt + Q”命令关闭 VBA 应用程序，然后关闭工作簿。从现在开始，当我们尝试编辑工作表时，将出现错误消息，如下面的图像所示。

我们可以通过单击“取消保护”并输入密码1234来解锁工作表。

结论

在本教程中，我们使用了一个简单的示例来演示如何自动保护所有工作表并在关闭 Excel 工作簿时进行保护。

更新于：2023年1月11日

3K+ 浏览量

开启你的 职业生涯

通过完成课程获得认证

开始学习
广告