Benutzername und Kennwort
13.08.2015 12:28:17
Uli
ich habe eine Excel-Datei, die nur von bestimmten Benutzern geöffnet werden darf. Dazu habe ich eine Userform vorgeschaltet, die nach Benutzername und Kennwort fragt.
Wie kann ich in einer Sub Benutzernamen und Kennwörter hinterlegen, um sie in der Userform abzugleichen? Kann mir da jemand helfen?
Mein Code bisher:
Private Sub CommandButton1_Click()
passwort = TextBox1.Value
If Me.TextBox1 "XYZ" Then
MsgBox "Falsches Kennwort"
Me.TextBox2 = ""
zähler = zähler + 1
Me.TextBox2.SetFocus
If zähler = 3 Then
MsgBox "3x falsch eingegeben", vbExclamation
ThisWorkbook.Close Savechanges:=False
End If
Exit Sub
Else
frmStart.Show
Unload Me
End If
End Sub
lg.Uli