Bei Passwort Abfrage Leerzeichen ignorieren
28.04.2016 14:15:32
udo
könntet ihr mir hierbei bitte auf die Sprünge helfen.
Habe in der Recherche eine Passwortabfrage gefunden, die meinen Bedürfnissen recht nahe kommt. Den Code hab ich auf meinen Zellbereich angepasst.
Sieht wie folgt aus:
Sub Test()
On Error GoTo Fehler
n = InputBox("Mitarbeiter( ... )", "Test", "Vorname Nachname")
P = InputBox("Passwort")
Set A = Sheets("IN").Range("Z20:Z40").Find(n)
Set B = Sheets("IN").Range("AA20:AA40").Find(P)
'ich würde gerne vorab eine Prüfung haben die die Eingabe
'in der ersten Inputbox in sofern prüft ob der entspr. USER auch in
'der Liste aus Set A aufgeführt ist, wenn nicht, oder Eintrag "",
'oder Eintrag aus der Vorgabe "Vorname Nachname" ,
'dann die Prozedur einfach per Exit Suub beenden ... damit ist dann schon
'mal gewährleistet dass nur berechtigte User die Chance haben ihr
'Passwort einzugeben und im Weiteren damit den Bereich letzlich freizuschalten.
'gibt es dabei auch die Möglichkeit die Passworteingabe mit Sternchen
'zu überblenden Eigenschaften der Inputbox ?
If A.Row = B.Row Then
' und ...
Else
MsgBox "Benutzer oder Passwort falsch"
' und ...
End If
Exit Sub
Fehler:
End Sub
LG udo