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

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

自动隐藏单个工作表

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

步骤 1

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

示例

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

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

步骤 2

现在，将工作表另存为启用宏的工作簿并关闭它。下次打开它时，单击“启用代码”按钮即可自动隐藏工作表 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 = xlSheetHidden
MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
Else
ws.Visible = xlSheetVisible
End If
Next ws
Set ws = Nothing
End Sub

步骤 3

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

结论

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

更新于：2023年1月10日

721 次浏览

启动您的 职业生涯

通过完成课程获得认证

开始学习
广告