Anónimo
Macro de ocultar hojas
Hola que tal, quería ver si me pudieran ayudar a hacer una macro en la que solamente se muestra la hoja activa; es decir, que las hojas que no estén activas se oculten y el cambio de una hoja a otra es por medio de hipervínculos. Gracias
1 Respuesta
Respuesta de Isaac Reyes
1
Debes poner esta macro en cada hoja que quieres que actúe de esa forma
Private Sub Worksheet_FollowHyperlink(ByVal Enlace As Hyperlink)
strNuevaHoja = Left(Enlace.SubAddress, InStr(1, Enlace.SubAddress, "!") - 1)
Sheets(strNuevaHoja).Visible = xlSheetVisible
Me.Visible = xlSheetVeryHidden
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Enlace As Hyperlink)
strNuevaHoja = Left(Enlace.SubAddress, InStr(1, Enlace.SubAddress, "!") - 1)
Sheets(strNuevaHoja).Visible = xlSheetVisible
Me.Visible = xlSheetVeryHidden
End Sub