Ich möchte einen einfachen Login per Userform realisieren und benötige hierbei etwas Hilfe.
Meine Userform(2) liest die gültigen Benutzer aus dem versteckten Tabellenblatt "User" aus.
Private Sub UserForm_Initialize()
ComboBox1.List = Blatt30.Range("A2:A30").Value
ComboBox1.ListIndex = 0
End Sub
In die TextBox1 der Userform wird das Passwort eingegebenPer Klick auf CommandButton1 der Userform soll folgende Prozedur erfolgen:
Abgleich ob Kombi aus Benutzernamens in Combobox und Passwort in TextBox 1 gültig sind:
- Im Blatt30 "User" A2:A30 stehen die Benutzer, in B2:B30 die Passwörter
- stimmt die Kombi überein Userform2 schließen und passendes Makro ausführen (der jeweils nötige Makroname steht in D2:D30
- Der gültige Benutzername müsste in das Blatt User in die Zelle G1 kopiert werden.
- stimmt die Kombination nicht soll MsgBox "Die Kombination aus Benutzer und Passwort ist nicht bekannt" ausgeführt werden.
Für jede Hilfe bin ich dankbar.
Der Upload einer Beispieldatei hat leider nicht geklappt...
Gruß Frank