Passwortabfrage
12.11.2015 23:32:18
Vba_marc
Ich bin dabei, als kleine Spielerei, eine Passwortabfrage zu programmieren. Dabei soll, wenn die Datei geöffnet wird, eine Inputbox aufploppen in der der Benutzername einzutragen ist und danach eine Inputbox für das Passwort. Die Benutzernamen stehen in Tabelle 2 in Spalte A. Die jeweiligen Passwörter daneben in Spalte B. Mein Code sieht jetzt so aus:
Sub Workbook_Open()
N = InputBox("Benutzername")
P = InputBox("Passwort")
Set a = Sheets("Tabelle2").Range("A:A").Find(N)
Set b = Sheets("Tabelle2").Range("B:B").Find(P)
If a.Row = b.Row Then
Else
MsgBox "Benutzer oder Kennwort falsch"
Application.Quit
End If
End Sub
Wenn ich dann eine richtige Kombination eingebe funktioniert alles wunderbar. Auch wenn ich eine falsche Kombination eingebe wird das Programm, wie vorgesehen, nach dem Hinweis beendet. Wenn ich aber in eine Inputbox einen Wert eingebe der nicht in einer der Spalten steht bekomme ich eine Fehlermeldung. Ich weiß jetzt nicht, wie ich das verhindern kann. Vielleicht kann mir einer von euch helfen...