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

ms excelmicrosoft technologiescomputers更新于 2024/10/6 3:24:17

通常，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 是解锁工作簿的密码。