Come seguire un collegamento ipertestuale per accedere a un foglio nascosto in Excel?

Se hai una cartella di lavoro con più fogli di lavoro e desideri utilizzare collegamenti ipertestuali su un foglio principale per navigare verso i fogli nascosti, noterai che i collegamenti ipertestuali diventano inattivi una volta che i fogli sono nascosti. Per risolvere questo problema, puoi utilizzare il codice VBA per assicurarti che facendo clic su un collegamento ipertestuale si apra automaticamente il corrispondente foglio nascosto. Questo articolo fornisce istruzioni dettagliate per ottenere questa funzionalità e offre anche l'opzione di nascondere nuovamente il foglio dopo essere tornati al foglio principale.

Segui il collegamento ipertestuale per aprire un foglio nascosto con il codice VBA

Segui il collegamento ipertestuale per aprire un foglio nascosto e poi nasconderlo nuovamente con il codice VBA

Segui il collegamento ipertestuale per aprire un foglio nascosto con il codice VBA

Il seguente codice VBA può aiutarti ad aprire il foglio di lavoro nascosto quando fai clic sul suo relativo collegamento ipertestuale, procedi come segue:

1. Fai clic destro sulla scheda del foglio da cui vuoi seguire il collegamento ipertestuale al foglio nascosto, quindi scegli Visualizza Codice dal menu contestuale; nella finestra Microsoft Visual Basic for Applications visualizzata, copia e incolla il seguente codice nel modulo vuoto:

Codice VBA: Segui il collegamento ipertestuale per aprire un foglio nascosto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

Nota: Nel codice sopra, il numero 1 in questo script If Target.Column = 1 Then indica il numero della colonna che contiene i collegamenti ipertestuali, modificalo secondo le tue esigenze.

2. Salva e chiudi la finestra del codice. Ora, quando fai clic su un collegamento ipertestuale che punta a un determinato foglio nascosto, il foglio si aprirà immediatamente.

Segui il collegamento ipertestuale per aprire un foglio nascosto e poi nasconderlo nuovamente con il codice VBA

A volte, è necessario seguire il collegamento ipertestuale per aprire il foglio nascosto e, quando si ritorna al foglio principale, si desidera che il foglio aperto venga nascosto nuovamente. Il seguente codice VBA può aiutarti:

1. Fai clic destro sulla scheda del foglio da cui vuoi seguire il collegamento ipertestuale al foglio nascosto, quindi scegli Visualizza Codice dal menu contestuale; nella finestra Microsoft Visual Basic for Applications visualizzata, copia e incolla il seguente codice nel modulo vuoto:

Codice VBA: Segui il collegamento ipertestuale per aprire un foglio nascosto e poi nasconderlo nuovamente quando si ritorna:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

2. Salva e chiudi la finestra del codice. Quando fai clic sul collegamento ipertestuale, il foglio nascosto collegato verrà aperto immediatamente, ma se ritorni al foglio principale che contiene i collegamenti ipertestuali, il foglio aperto verrà nascosto automaticamente di nuovo.

Nota: Questi codici si applicano solo ai nomi dei fogli che corrispondono al testo del collegamento ipertestuale.

Demo: Segui il collegamento ipertestuale per aprire un foglio nascosto con il codice VBA