Hallo zusammen,

ich nutze diesen Code um ein Tabellenblatt mit Passwort zu öffnen:
Sub Schaltfläche1_Klicken()

'
Dim sPassWord As String
sPassWord = InputBox("Bitte Passwort eingeben:", , "")
Select Case sPassWord
Case "Büro"
With Worksheets("Tabelle1")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub

Jetzt wenn ich aber unten auf dem Tabllenblatt klicke auf rechte Maustaste dann kann ich es wieder Manuell einblenden.
Kann ich das irgendwie noch verhindern ?

Danke