如何在打开Excel文件时自动隐藏特定的工作表？

在Excel中，您可能想要自动隐藏特定的工作表，但又不想删除它，因为它包含一些敏感信息，您不想分享。我们可以利用VBA应用程序来实现这一点。本文将帮助您了解如何在打开Excel文件时自动隐藏特定的工作表。本教程将帮助您了解如何在Excel中自动隐藏单个工作表和多个工作表。

自动隐藏单个工作表

在这里，我们将VBA代码应用于整个工作簿，并在代码中提及工作表的名称。让我们看一个简单的过程，了解如何在打开Excel文件时自动隐藏单个工作表。

第1步

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

示例

Private Sub Workbook_Open()
'Updated By Nirmal
Sheets("Sheet3").Visible = False
End Sub

在代码中，“Sheet3”是我们要隐藏的工作表的名称。

第2步

现在，将工作表保存为启用宏的工作簿并关闭它。下次打开时，单击启用代码按钮即可自动隐藏Sheet 3。

自动隐藏多个工作表

工作表名称将在此处分组并在代码中提及。让我们看一个简单的过程，了解如何在Excel工作簿中自动隐藏多个工作表。

第1步

让我们考虑包含多个工作表的Excel工作簿。在任何工作表中，输入您想要隐藏的工作表名称列表，选择它们并为其命名，如下图所示。

第2步

现在，右键单击任何一个工作表名称，选择“查看代码”以打开VBA应用程序，并双击此工作簿并在文本框中输入程序，如下图所示。

示例

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update By Nimral
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If WorksheetFunction.CountIf([Hidesheets], ws.Name) > 0 Then
ws.Visible = xlSheetHiddenMsgBox ws.Name & "已隐藏！", vbInformation, "Kutools for Excel"
Else
ws.Visible = xlSheetVisible
End If
Next ws
Set ws = Nothing
End Sub

第3步

关闭工作簿，将其保存为启用宏的工作簿，然后关闭它。下次打开工作簿时，单击启用代码按钮即可自动隐藏它，如下图所示。

结论

在本教程中，我们使用了一个简单的示例，演示了如何在Excel工作簿中自动隐藏多个工作表。