Delen via

Tab van eerste werkblad altijd zichtbaar maken

Anoniem
2010-11-19T13:56:14+00:00

Ik heb een Excel met een groot aantal werkbladen. Het eerste werkblad gebruik ik als een soort van index met links naar de overige werkbladen. Kan ik er voor zorgen dat het 'tabje' van het eerste werkblad altijd zichtbaar? Als je bijvoorbeeld scollt naar een ander werkblad dan is het tabje niet meer zicthbaar.

Microsoft 365 en Office | Excel | Voor thuisgebruik | Windows

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.

0 opmerkingen Geen opmerkingen

1 antwoord

Sorteren op: Meest nuttig
  1. Anoniem
    2010-11-19T15:36:40+00:00

    Als je het eerste tabblad gebruikt als index, zou je er ook voor kunnen kiezen om alle andere tabbladen te verbergen (via vba) en alleen het indexblad en het tabblad waar je naar toe wilt zichtbaar is.

    Ik heb zelf zoeits ooit gemaakt en daar de volgende code voor gebruikt:

    (in jouw "INDEX"blad command buttons aanmaken)

    Private Sub CommandButton1_Click()

        Sheets("BLAD1").Visible = True

        Sheets("Menu").Visible = xlVeryHidden

    End Sub

    Private Sub CommandButton2_Click()

        Sheets("BLAD2").Visible = True

        Sheets("Menu").Visible = xlVeryHidden

    End Sub

    Private Sub CommandButton3_Click()

        Sheets("BLAD3").Visible = True

        Sheets("Menu").Visible = xlVeryHidden

    End Sub

    Private Sub CommandButton4_Click()

        Sheets("BLAD4").Visible = True

        Sheets("Menu").Visible = xlVeryHidden

    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)

        If Range("Menu!B22").Value = "WACHTWOORD" Then

        Application.ScreenUpdating = False

        For Each sh In Sheets

        sh.Visible = True

        Next sh

        Application.ScreenUpdating = True

        Else

        Application.ScreenUpdating = False

        Sheets("BLAD1").Visible = xlVeryHidden

        Sheets("BLAD2").Visible = xlVeryHidden

        Sheets("BLAD3").Visible = xlVeryHidden

        Sheets("BLAD4").Visible = xlVeryHidden

        Application.ScreenUpdating = True

        End If

    End Sub

    Private Sub Worksheet_Activate()

        Me.ScrollArea = "A1:O33"

    End Sub

    en in elke sheet een commandbutton aanmaken met de volgende code:

    Private Sub CommandButton1_Click()

        Sheets("Menu").Visible = True

        Sheets("BLAD1").Visible = xlVeryHidden

    End Sub

    Bij bovenstaande code verbergt hij ook het tabblad "Menu"- index bij jou, dit kan je ook achterwege laten natuurlijk.

    Succes,


    Communicatie is vaak het grootste probleem van de oplossing.

    Was dit antwoord nuttig?

    0 opmerkingen Geen opmerkingen