Eric ha una cartella di lavoro condivisa che contiene un database di circa 3.500 record. Due delle celle in ogni record contengono un indirizzo di posta elettronica e un URL. Quando un nuovo record viene aggiunto al database, l’indirizzo di posta elettronica e l’URL vengono visualizzati come testo normale anziché come collegamenti ipertestuali. Per trasformarli in collegamenti ipertestuali, Eric deve annullare la condivisione della cartella di lavoro, apportare la modifica e quindi ricondividere la cartella di lavoro. Eric si è chiesto se esiste, forse, un modo più semplice per gestire questa situazione.

Molto semplicemente, l’aggiunta e la modifica di collegamenti ipertestuali non è consentita quando si utilizza una cartella di lavoro condivisa. Il modo più semplice per aggirare il problema è inserire i collegamenti in celle separate come testo e quindi utilizzare la formula HYPERLINK per fare riferimento a tali celle.

Ad esempio, se l’URL viene inserito nella cella E2, è possibile utilizzare la seguente formula in una cella diversa:

=HYPERLINK(E2, E2)

Il primo argomento in questa formula è per la cella che contiene l’indirizzo e il secondo argomento è per il testo da visualizzare per il collegamento ipertestuale. Questo approccio richiede due colonne aggiuntive (per le formule HYPERLINK) ma non richiederà l’annullamento della condivisione e la ricondivisione della cartella di lavoro.

L’unica altra opzione è creare una macro che possa automatizzare il processo di annullamento della condivisione e ricondivisione della cartella di lavoro. La seguente macro lo farà e convertirà tutto ciò che si trova nella cella selezionata in un collegamento ipertestuale.

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: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (3155) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Conversione in collegamenti ipertestuali in una cartella di lavoro condivisa.