Passwortabfrage

Forumthread: Passwortabfrage

Passwortabfrage

13.11.2015 00:32:18

Vba_marc

Hallo zusammen,
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...

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Passwortabfrage

13.11.2015 00:47:18

Matthias

AW: Passwortabfrage

13.11.2015 00:47:18

Matthias

Hallo

Private Sub Workbook_Open()
On Error GoTo Fehler
N = InputBox("Benutzername", , "Name")
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"
ThisWorkbook.Saved = True
Application.Quit
End If
Exit Sub
Fehler:
MsgBox "Benutzer oder Kennwort falsch"
ThisWorkbook.Saved = True
Application.Quit
End Sub

Gruß Matthias

Forumthread: Passwortabfrage

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread