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
Anzeige