ich benötige dringend eure Hilfe, denn ich bin am verzweifeln ;-).
ich möchte eine Passwortabfrage über eine UF durchführen.
Soweit funktioniert auch alles. Ich möchte aber nicht, dass sich nach der falsch Eingabe Excel schließt, sondern nur die Abfrage geschlossen wird.
Könnt ihr mir hier bitte helfen?
folgender Code steht in der UF
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value "9010ml" Or TextBox1.Value = "snt2015" Then
piCounter = piCounter + 1
MsgBox "Passwort falsch! Du hast nur 3 Versuche.", vbOKOnly + vbInformation + _
vbDefaultButton1, "Zugriff verweigert"
TextBox1.Text = ""
TextBox1.SetFocus
Else
Unload Me
End If
If piCounter = 3 Then
MsgBox "Sie haben 3x ein falsches Passwort eingegeben!" & vbCrLf & "Bitte wende dich an _
_
den Ersteller der Datei.", vbOKOnly + vbCritical + vbDefaultButton1, "Zugriff verweigert"
ActiveWorkbook.Close
Exit Sub
End If
Exit Sub
End Sub
Private Sub UserForm_Initialize()
piCounter = 0
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
frmAdmin.Show
End Sub
Und dies steht im Modul
Public piCounter As Integer
Vielen Dank in voraus
Gruß Mario