Passwortabfrage mit Userform (20 Stk.)
15.07.2019 19:31:26
Simone
ich bin mal wieder ratlos :-).
Ich habe folgendes Problem:
Ich habe eine Userform1 mit 20 Buttons. Jeder Button steht für einen Bearbeiter. Sobald der Bearbeiter auf seinen Button drückt wird die Userform2 gestartet und es soll eine Passwort-Abfrage erfolgen. Jetzt habe ich den u.a. Code zusammengeschnipselt für die Userform2, der auch ganz gut funktioniert. Meine Frage ist, muss ich diesen Codeschnipsel jetzt 20 mal einfügen oder geht das eleganter?
Zur Info: Jeder Bearbeiter soll ein anderes Passwort haben und es wird je Bearbeiter die Bearbeiternummer separat in ein anderes Blatt ("B1") gespeichert.
Danke im Voraus und Grüße
Simone
Hier mein Code:
Private Sub CommandButton1_Click()
If Me.TextBox1 = "123456" Then
UserForm11.Show
'Es wird bei allen 20 Bearbeitern als nächstes die gleiche
Userform als Ziel aufgerufen
Else: MsgBox (" Das war wohl nix")
Unload Me
End If
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim varVal As Variant
varVal = TextBox1.Value
If KeyCode = 13 Then
If varVal = "123456" Then
Unload Me
UserForm1.Show
'Dieser Wert ist bei allen 20 Buttons ein anderer:
'#######Bearbeiter-Nummer speichern in B1 ####
Tabelle3.Cells(1, 2) = "1" '#
Else
TextBox1.Text = ""
TextBox1.SetFocus
End If
End If
End Sub
Anzeige