Hoe een hyperlink naar een verborgen werkblad in Excel volgen?

Als je een werkboek hebt met meerdere werkbladen en hyperlinks op een hoofdwerkblad wilt gebruiken om naar verborgen werkbladen te navigeren, zul je merken dat de hyperlinks inactief worden zodra de werkbladen verborgen zijn. Om dit op te lossen, kun je VBA-code gebruiken om ervoor te zorgen dat het klikken op een hyperlink automatisch het bijbehorende verborgen werkblad opent. Dit artikel biedt stap-voor-stap instructies om deze functionaliteit te bereiken en biedt zelfs een optie om het werkblad opnieuw te verbergen nadat je terugkeert naar het hoofdwerkblad.

Volg hyperlink om verborgen werkblad te openen met VBA-code

Volg hyperlink om verborgen werkblad te openen en vervolgens opnieuw te verbergen met VBA-code

Volg hyperlink om verborgen werkblad te openen met VBA-code

De volgende VBA-code kan helpen om het verborgen werkblad te openen wanneer je op de bijbehorende hyperlink klikt; doe het volgende:

1. Klik met de rechtermuisknop op het tabblad van het werkblad waarvan je de hyperlink naar het verborgen werkblad wilt volgen, en kies vervolgens Weergave Code uit het contextmenu. In het venster Microsoft Visual Basic for Applications dat verschijnt, kopieer en plak je de volgende code in de lege module:

VBA-code: Volg hyperlink om verborgen werkblad te openen:

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

Opmerking: Het getal 1 in deze If Target.Column = 1 Then script geeft het kolomnummer aan dat de hyperlinks bevat; pas dit aan indien nodig.

2. Sla daarna het codevenster op en sluit het. Nu, wanneer je op een hyperlink klikt die verwijst naar een specifiek verborgen werkblad, zal het werkblad onmiddellijk openen.

Volg hyperlink om verborgen werkblad te openen en vervolgens opnieuw te verbergen met VBA-code

Soms moet je de hyperlink volgen om het verborgen werkblad te openen, en wanneer je terugkeert naar het hoofdwerkblad, wil je dat het geopende werkblad opnieuw wordt verborgen. De onderstaande VBA-code kan je hierbij helpen:

1. Klik met de rechtermuisknop op het tabblad van het werkblad waarvan je de hyperlink naar het verborgen werkblad wilt volgen, en kies vervolgens Weergave Code uit het contextmenu. In het venster Microsoft Visual Basic for Applications dat verschijnt, kopieer en plak je de volgende code in de lege module:

VBA-code: Volg hyperlink om verborgen werkblad te openen en bij terugkeer weer te verbergen:

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. Sla daarna het codevenster op en sluit het. Wanneer je op de hyperlink klikt, zal het verbonden verborgen werkblad onmiddellijk openen, maar als je teruggaat naar het hoofdwerkblad met de hyperlinks, zal het geopende werkblad automatisch opnieuw worden verborgen.

Opmerking: Deze codes zijn alleen van toepassing op werkbladnamen die overeenkomen met de hyperlinktekst.

Demo: Volg hyperlink om verborgen werkblad te openen met VBA-code