Tabellenblatt ausblenden

Ich habe folgenden Code um ein Tabellenblatt auszublenden.

Sub Blatt _ausblenden()
Worksheets(’’Tabelle1’’) . Visible = xlVeryHidden
End Sub

Und mit diesem blende ich die Tabelle wieder ein.

Sub Blatt_einblenden()
Worksheets(’’Tabelle1’’) . Visible = True
End Sub

Nun möchte ich dies über eine Passworteingabe in einem Textfeld in Tabelle 2 Steuern.
Bei korrekter Passworteingabe Tabelle1 einblenden.
Beim schließen der Arbeitsmappe soll die Tabelle wieder ausgeblendet werden.
So das beim erneuten öffnen das Tabellenblatt 1 wieder ausgeblendet ist.

Vielen Dank,

Martin