如何在 Excel 中切换隐藏和可见的工作表？

假设您有一些包含重要数据的工作表，不希望其他人看到，隐藏工作表可以是保护 Excel 中数据的简单方法。但有时，您需要显示隐藏的工作表，然后再将它们隐藏起来。通常情况下，您需要逐个取消隐藏它们，如果您经常执行此操作，将会非常麻烦且耗时。本文中，我将向您介绍一些快速的方法来在隐藏和非隐藏之间切换工作表。

使用 VBA 代码在隐藏和非隐藏之间切换工作表

使用 Kutools for Excel 在隐藏和非隐藏之间切换工作表

使用 VBA 代码在隐藏和非隐藏之间切换工作表

假设您有一个工作簿，其中 Sheet1、Sheet2 和 Sheet3 被隐藏，以下 VBA 代码可以帮助您快速显示它们，再次点击则会重新隐藏它们。请按照以下步骤操作：

1. 点击 开发工具 > Visual Basic，将弹出一个新的 Microsoft Visual Basic for Applications 窗口，点击 插入 > 模块，然后在模块中输入以下代码。

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

在上面的代码中， ShtNames = Array("Sheet1", "Sheet2", "Sheet3") 是一个变量，您可以根据需要更改隐藏工作表的名称。

2. 然后按 F5 键运行代码，隐藏的工作表已被显示。如果要再次隐藏它们，请再次按 F5 键。

使用 Kutools for Excel 在隐藏和非隐藏之间切换工作表

通过 Kutools for Excel 的 切换工作表的可见性 功能，只需点击 工作表 命令，即可轻松在隐藏和非隐藏之间切换工作表。

Kutools for Excel 包含 300 多个便捷的 Excel 工具。免费试用 30 天无任何限制。立即获取。

安装 Kutools for Excel 后，您可以按照以下步骤操作：

1. 打开包含一些隐藏工作表的工作簿。

2. 点击 Kutools > 视图 > 切换工作表的可见性，见截图：

当您单击此命令一次时，所有隐藏的工作表都会被显示出来；如果想再次隐藏它们，请再次单击此命令。见截图：

注意：此功能也适用于非连续隐藏的工作表。

相关文章：

在 Excel 中切换隐藏和可见列