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

Cabe señalar que Microsoft eliminó la función Libro compartido en las últimas versiones de Excel. La coautoría es la forma más nueva de compartir libros de trabajo. La siguiente página web explica cómo acceder a los botones del Libro de trabajo compartido si son necesarios; por ejemplo, si necesita desactivar la función Libro de trabajo compartido:

https://support.office.com/en-us/article/What-happened-to-shared-workbooks-150FC205-990A-4763-82F1-6C259303FE05

_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 (725) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

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