Excel 在关闭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工作簿时自动保护所有工作表。