Een familie van Microsoft-spreadsheetsoftware met hulpprogramma's voor het analyseren, in kaart brengen en communiceren van gegevens.
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.