Tabellenblatt über Makro gegen Zugriff schützen
28.09.2004 10:31:30
Michael
ich dachte, ich hätte eine schöne Lösung (s.u.) für folgende Problemstellung gefunden: Ein Tabellenblatt soll nur nach richtiger Passworteingabe sichtbar sein. Das funktioniert soweit auch ganz gut, aber die Tabelle lässt sich auch über Extras -> Blatt -> Einblenden ohne Passwortabfrage/-eingabe sichtbar machen.
Der Code sieht aktuell wie folgt aus (Sheet "Einst" soll geschützt sein):
Eintrag in "Diese Arbeitsmappe":
Private Sub Workbook_open()
Sheets("Einst").Visible = xlVeryHidden
Sheets("xxx").Select
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
Sheets("xyz").Select
Application.WindowState = xlMaximized
End Sub
Makro zum Öffnen der geschützen Tabelle "Einst":
Sub Einstellungen()
'
Dim PW As String
PW = InputBox("Bitte Passwort angeben", "Passwortabfrage", "")
If PW "test" Then
MsgBox "Falsches Passwort"
Exit Sub
End If
Sheets("Einst").Visible = True
Sheets("Einst").Select
End Sub
Was mache ich falsch, wie geht es besser?
Besten Dank schonmal für die Antworten
Michael