Excel - Excel - Ocultar pestañas por hipervinculo

 
Vista:

Excel - Ocultar pestañas por hipervinculo

Publicado por ALEJANDRO CHICA (1 intervención) el 02/05/2024 15:07:27
Hola, he ingresado el código para ocultar pestañas con hipervínculo, pero de 15 hipervínculos que tengo, solo me funciona en uno, en el resto me muestra error en esta línea:

If Sheets(DirLink).Visible = False Then

El código que estoy usando es este:
Dim DirLink As String 'DIRECCION DEL HIPERVINCULO SELECCIONADO

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Sheets("Contenido").Activate
DirLink = ActiveCell.Hyperlinks(1).SubAddress
DirLink = Left(DirLink, InStr(1, DirLink, "!", vbTextCompare) - 1)

If Sheets(DirLink).Visible = False Then
Sheets(DirLink).Visible = True
Sheets(DirLink).Activate
Sheets(DirLink).Range("A1").Select
End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Contenido" Then Sheets(Sh.Name).Visible = False
End Sub

Me podrías ayudar por favor.

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Excel - Ocultar pestañas por hipervinculo

Publicado por Antoni Masana (2499 intervenciones) el 03/05/2024 15:03:20
Es necesario que subas el libro para ver el problema.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar