Eric tiene un libro de trabajo compartido que contiene una base de datos de unos 3500 registros. Dos de las celdas de cada registro contienen una dirección de correo electrónico y una URL. Cuando se agrega un nuevo registro a la base de datos, la dirección de correo electrónico y la URL aparecen como texto normal en lugar de como hipervínculos. Para convertirlos en hipervínculos, Eric debe dejar de compartir el libro de trabajo, realizar el cambio y luego volver a compartir el libro de trabajo. Eric se preguntó si quizás existe una manera más fácil de manejar esta situación.

En pocas palabras, no se permite agregar y editar hipervínculos cuando se usa un libro de trabajo compartido. La forma más sencilla de evitarlo es poner los enlaces en celdas separadas como texto y luego usar la fórmula HIPERVÍNCULO para hacer referencia a esas celdas.

Por ejemplo, si la URL se ingresa en la celda E2, puede usar la siguiente fórmula en una celda diferente:

=HYPERLINK(E2, E2)

El primer argumento de esta fórmula es para la celda que contiene la dirección y el segundo argumento es para el texto que se mostrará para el hipervínculo. Este enfoque requiere dos columnas adicionales (para las fórmulas de HIPERVÍNCULO) pero no requerirá dejar de compartir y volver a compartir el libro de trabajo.

La única otra opción es crear una macro que pueda automatizar el proceso de dejar de compartir y volver a compartir el libro. La siguiente macro hará esto y convertirá lo que esté en la celda seleccionada en un hipervínculo.

Sub AddHyperlink()

Dim cell As Range

Application.DisplayAlerts = False

' Unshare the Workbook     If ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.ExclusiveAccess     End If

' Change address in cell to a hyperlink.

If ActiveCell = "" Then         ActiveCell.Hyperlinks.Delete     Else         For Each cell In Intersect(Selection, _           Selection.SpecialCells(xlConstants, xlTextValues))

With Worksheets(1)

.Hyperlinks.Add Anchor:=cell, _                   Address:=cell.Value, _                   ScreenTip:=cell.Value, _                   TextToDisplay:=cell.Value             End With         Next cell     End If

' Reshare the Workbook     If Not ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.SaveAs _           Filename:=ActiveWorkbook.FullName, _           AccessMode:=xlShared     End If End Sub

_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 (3155) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Converting_to_Hyperlinks_in_a_Shared_Workbook [Conversión a hipervínculos en un libro de trabajo compartido].