Kennwort
ottgunter
brauche mal wieder eure Hilfe
Habe diese VBA texte im Forum gefunden.
Das Problem ist nun, wenn ich jetzt kein Kennwort eingebe, kann ich mit abbrechen ( kleines kreuz)
trotzdem alles in dieser Datei machen.
Ich hätte es doch gerne so, dass ich ein kennwort eingeben muß. Wenn ich abbreche, soll sich diese datei schließen.
Es soll also keine möglichkeit geben, ohne kennwort an dieser Datei etwas zu machen.
Gruß gunter
Dieses steht in UserForm1
Option Explicit
Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "test" Then
Unload Me
Sheets("Start").Visible = True
Else
UserForm1.Caption = "Falsche Passwort"
Exit Sub
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_initialize()
UserForm1.Caption = "Passwortabfrage"
End Sub
Dieses steht in Diese ArbeitsmappeOption Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Start").Visible = False
End Sub
Private Sub Workbook_Open()
UserForm1.Show
End Sub