如何跟随超链接到Excel中的隐藏工作表？

例如，我有一个包含多个工作表的工作簿，第一个主工作表具有指向其他工作表的超链接，现在，我隐藏了除第一个工作表以外的所有工作表。 在这种情况下，链接到隐藏工作表的超链接不可用。 但是，如何使这些超链接成功工作？ 当您单击一个超链接时，链接的隐藏工作表将立即打开，如以下屏幕截图所示：

按照超链接打开带有VBA代码的隐藏工作表

按照超链接打开隐藏的工作表，然后使用VBA代码再次将其隐藏

按照超链接打开带有VBA代码的隐藏工作表

下面的VBA代码可以帮助您在单击隐藏的工作表的相对超链接时打开它，请按以下步骤操作：

1。 右键单击要跟随超链接到隐藏工作表的工作表选项卡，然后选择 查看代码 从上下文菜单中，弹出 Microsoft Visual Basic应用程序 窗口，请将以下代码复制并粘贴到空白模块中：

VBA代码：按照超链接打开隐藏的工作表：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

备注：在上面的代码中，数字 1 摘要可点击此连结 如果Target.Column = 1然后 脚本指示包含超链接的列号，请根据需要进行更改。

2。 然后保存并关闭此代码窗口，现在，单击链接到特定隐藏工作表的超链接时，隐藏工作表将立即打开。

按照超链接打开隐藏的工作表，然后使用VBA代码再次将其隐藏

有时，您需要遵循超链接来打开隐藏的工作表，而当您返回主工作表时，您希望再次隐藏已打开的工作表。 下面的VBA代码可以帮您一个忙：

1。 右键单击要跟随超链接到隐藏工作表的工作表选项卡，然后选择 查看代码 从上下文菜单中，弹出 Microsoft Visual Basic应用程序 窗口，请将以下代码复制并粘贴到空白模块中：

VBA代码：当再次返回将其隐藏时，请按照超链接打开隐藏的工作表：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

2。 然后保存广告代码窗口，当您单击超链接时，链接的隐藏工作表将立即打开，但是，如果您返回包含超链接的主工作表，则打开的工作表将再次被自动隐藏。

备注：这些代码仅应用于与您的超链接文本匹配的工作表名称。

演示：按照超链接打开带有VBA代码的隐藏工作表