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

如果您需要在某人打开工作簿时自动隐藏某些特定的工作表，您如何在Excel中处理此工作？

使用VBA代码打开工作簿时，自动隐藏特定的工作表

使用VBA代码打开工作簿时，自动隐藏一些特定的工作表

---

使用VBA代码打开工作簿时，自动隐藏特定的工作表

如果要在打开工作簿时隐藏一个特定的工作表，则可以应用以下VBA代码。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在左边 项目-VBA项目 窗格，双击 的ThisWorkbook 打开一个空白模块，然后将以下代码复制并粘贴到该模块中：

VBA代码：打开工作簿时隐藏特定的工作表：

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

备注：在上面的代码中， Sheet5 是要在打开时隐藏的工作表名称。 请根据您的需要进行更改。

3。 然后保存并关闭此代码窗口，然后单击 文件 > 另存为 将此工作簿另存为 Excel启用宏的工作簿 格式，请参见屏幕截图：

4. 下次打开此工作簿时，请单击 启用内容 按钮，然后您的指定工作表将自动隐藏。

---

使用VBA代码打开工作簿时，自动隐藏一些特定的工作表

如果在打开工作簿时需要隐藏多个工作表，那么这里的代码也可以为您提供帮助。

1。 首先，您应该在工作表列表中列出要隐藏的工作表名称，然后转到 姓名框 给他们一个范围名称-要隐藏的工作表，然后按 输入 键，请参见屏幕截图：

2。 然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

3。 在左边 项目-VBA项目 窗格，双击 的ThisWorkbook 打开一个空白模块，然后将以下代码复制并粘贴到该模块中：

VBA代码：打开工作簿时隐藏一些特定的工作表：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    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([SheetsToHide], 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

备注：在上面的代码中， 要隐藏的工作表 是您在步骤1中创建的范围名称。

4。 然后保存并关闭此代码窗口，然后单击 文件 > 另存为 将此工作簿另存为 Excel启用宏的工作簿 格式。 从现在开始，下次打开此工作簿时，指定的工作表将自动隐藏。