¿Cómo seguir un hipervínculo hacia una hoja oculta en Excel?

Si tienes un libro con múltiples hojas de cálculo y deseas usar hipervínculos en una hoja maestra para navegar hacia hojas ocultas, notarás que los hipervínculos se vuelven inactivos una vez que las hojas están ocultas. Para resolver esto, puedes usar código VBA para asegurarte de que al hacer clic en un hipervínculo se abra automáticamente la hoja oculta correspondiente. Este artículo proporciona instrucciones paso a paso para lograr esta funcionalidad e incluso ofrece la opción de volver a ocultar la hoja después de regresar a la hoja maestra.

Seguir hipervínculo para abrir hoja oculta con código VBA

Seguir hipervínculo para abrir hoja oculta y luego ocultarla nuevamente con código VBA

Seguir hipervínculo para abrir hoja oculta con código VBA

El siguiente código VBA puede ayudarte a abrir la hoja de trabajo oculta cuando haces clic en su hipervínculo relativo; por favor, sigue estos pasos:

1. Haz clic derecho en la pestaña de la hoja desde la que deseas seguir el hipervínculo hacia la hoja oculta, y luego selecciona Ver Código en el menú contextual. En la ventana emergente de Microsoft Visual Basic for Applications, copia y pega el siguiente código en el módulo en blanco:

Código VBA: Seguir hipervínculo para abrir hoja oculta:

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

Nota: En el código anterior, el número 1 en este script If Target.Column = 1 Then indica el número de columna que contiene los hipervínculos; cámbialo según sea necesario.

2. Luego guarda y cierra esta ventana de código. Ahora, cuando hagas clic en un hipervínculo que lleva a una hoja oculta específica, la hoja se abrirá inmediatamente.

Seguir hipervínculo para abrir hoja oculta y luego ocultarla nuevamente con código VBA

A veces, necesitas seguir el hipervínculo para abrir la hoja oculta, y cuando regreses a la hoja maestra, quieres que la hoja abierta se oculte nuevamente. El siguiente código VBA puede ayudarte:

1. Haz clic derecho en la pestaña de la hoja desde la que deseas seguir el hipervínculo hacia la hoja oculta, y luego selecciona Ver Código en el menú contextual. En la ventana emergente de Microsoft Visual Basic for Applications, copia y pega el siguiente código en el módulo en blanco:

Código VBA: Seguir hipervínculo para abrir hoja oculta y luego ocultarla nuevamente al regresar:

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. Luego guarda y cierra la ventana de código. Cuando hagas clic en el hipervínculo, la hoja oculta vinculada se abrirá inmediatamente, pero si regresas a la hoja maestra que contiene los hipervínculos, la hoja abierta se ocultará automáticamente de nuevo.

Nota: Estos códigos solo se aplican a nombres de hojas que coinciden con el texto del hipervínculo.

Demostración: Seguir hipervínculo para abrir hoja oculta con código VBA