Passworteingabe nach Liste
kstorz
Ich habe in einer Mappe den folgenden Code:
Private Sub CommandButton3_Click()
If TextBox1 = Sheets("Grunddaten").Range("B1").Value And TextBox2 = Sheets("Grunddaten"). _
Range("F1") Or TextBox1 = "admin" And TextBox2 = "ilstloe" Or TextBox1 = "9" And TextBox2 = "9" Or TextBox1 = Sheets("Grunddaten").Range("B1").Value And TextBox2 = "xxy" Then
Fehleingabe = 0
Unload Me
'UserForm1.Show
Else
If Fehleingabe = 2 Then
Application.Quit
Application.DisplayAlerts = False
Exit Sub
End If
UserForm2.Show
'MsgBox "Das Passwort ist leider falsch - Bitte versuchen Sie es erneut"
'MsgBox "Excel wird nach 3 maliger Falscheingabe ohne Vorwarnung komplett! beendet!" & _
Chr(13) & "noch offene Mappen werden nicht gespeichert!" & Chr(13) & "Wenn Sie die notwendigen Daten nicht kennen, klicken Sie auf Abbrechen!"
With TextBox1
.Value = Sheets("Grunddaten").Range("B1").Value
.SetFocus
End With
TextBox2 = ""
Fehleingabe = Fehleingabe + 1
End If
End Sub
Ich möchte nun, dass die Passwortabfrage nicht nur mit den 3 genannten Abfragen verglichen wird, sondern mit einer Liste. Die Mappe soll von vielen Leuten genutzt werden, diese müssen sich aber jeder einzeln anmelden können, da Änderungen registriert werden müssen.
Es wäre sehr nett, wenn mir jemand eine Lösung dazu hätte!
Für Euere Hilfe Vielen Dank!
Viele Grüße
Klaus