Manuelles Einblenden von Sheets verhindern
Sheets
ich habe auf einem separaten Sheet verschiedene Parameter stehen auf die ich mit makros zugreife. Damit mir nicht irgendjemand dieses Sheet "zerschiesst", habe ich es ausgeblendet und kann es über die Eingabe eines Passwortes in einer Userform aufrufen/einblenden. Problem ist nur, dass man das Tabellenblatt ja immer noch ganz einfach z. B. übers Kontextmenü einblenden kann. Kann ich das irgendwie ausstellen, das man das Sheet wirklich nur über vba einblenden kann?
Hier mein Code zum Einblenden über vba:
Private Sub CommandButton1_Click()
Dim passw As String
passw = Sheets("Parameter").Cells(1, 6) ' Hier ist das aktuelle Passwort gespeichert.
Select Case TextBox1.Value
' Wenn Passowrt richtig, dann:
Case passw
Label3.Visible = False
Label2.Visible = False
ThisWorkbook.Worksheets("Parameter").Visible = True
ThisWorkbook.Worksheets("Berater").Visible = True
Me.Hide
Unload Me
' Wenn keine Eingabe, dann:
Case ""
Label3.Visible = True
Label2.Visible = False
' Wenn flasches Passwort, dann:
Case Else
Label3.Visible = False
Label2.Visible = True
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Select
End Sub
Danke und Gruß
Stefan
Anzeige