Tabblad verbergen voor opslaan

[ewaldmauritz]

Met onderstaande macro wordt er een tabblad zichtbaar voor de persoon die het gebruikt (mbv wachtwoord).
Welke VBA code moet ik daaraan toevoegen (en waar) om bij afsluiten van het bestand dit tabblad weer automatisch te verbergen?

Sub Wachtwoord_Annemieke()
Dim Wachtwoord
Wachtwoord = InputBox("Geef aub het wachtwoord in", "Wachtwoord", "********")


If Wachtwoord = "Annemieke" Then
MsgBox "Toegang verleend", vbInformation, "Wachtwoord correct"
ToonBlad_Annemieke
Exit Sub
Else
MsgBox "Toegang geweigerd", vbCritical, "Fout wachtwoord"
Exit Sub
End If
End Sub

Sub ToonBlad_Annemieke()

    
    Sheets("Annemieke").Visible = True
    Sheets("Annemieke").Select
    Range("A1").Select
End Sub

 

[DANIEL162]

Sheets("Blad1").Activate
Sheets("Blad1").Visible = xlVeryHidden

grtjs Daniel

 

[DANIEL162]

Is het zo iets dat je zoekt?

Bekijk bijlage Tabblad verbergen blad 1 bekijken paswoord ingave Annemieke.xls

grtjs Daniel

 

[ewaldmauritz]

Bedank Daniel. Met jouw eerste oplossing is het gelukt. Super.