A Jack le gustan sus hipervínculos de Excel para mostrar que han sido visitados.

Desafortunadamente, cuando guarda su libro de trabajo, todos se restablecen a no visitados. Jack se pregunta si hay alguna forma de hacer el «visitado»

el estado de sus hipervínculos sobrevive a la operación Guardar.

No hay forma de hacer esto que hayamos podido descubrir. Lo más cerca que podemos llegar es comprobar si se sigue un hipervínculo o no y luego indicar de alguna manera ese estado con una condición o valor que sobrevive a una operación de guardado. Por ejemplo, considere las siguientes macros:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim wks As Worksheet     Dim hl As Hyperlink     Application.ScreenUpdating = False     For Each wks In ThisWorkbook.Worksheets         For Each hl In wks.Hyperlinks             If hl.Parent.Interior.ColorIndex = 37 Then                 hl.Parent.Interior.ColorIndex = xlNone                 hl.Parent.Style = "Followed Hyperlink"

End If         Next hl     Next wks     Application.ScreenUpdating = True End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Target.Parent.Interior.ColorIndex = 37 End Sub

Cada vez que se sigue un hipervínculo, se ejecuta la segunda macro. Establece el color de la celda que contiene el hipervínculo. Luego, a medida que se guarda el libro, se ejecuta la primera macro. Comprueba todas las celdas que contienen hipervínculos, y si su color interior es el color «clave» (valor de color de 37), entonces el estilo de la celda se establece en un estilo llamado «Hipervínculo seguido». Esta configuración de estilo para la celda sobrevivirá a la operación de guardado; lo único que debe hacer es asegurarse de haber definido el estilo para que aparezca como desea que aparezcan los hipervínculos seguidos.

Cabe señalar que estas dos macros deben agregarse al módulo ThisWorkbook del libro de trabajo. Para acceder a él, muestre el Editor de Visual Basic y haga doble clic en el módulo ThisWorkbook en el Explorador de proyectos. Luego puede pegar las macros en la ventana de código resultante.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (7198) se aplica a Microsoft Excel 2000, 2002 y 2003.