Wartezeit nach falscher Passworteingabe
29.04.2019 14:11:48
Alexander
gibt es zufällig die Möglichkeit wenn ein Nutzer das falsche Passwort eingegeben hat, die OK Schaltfläche für 10 Sekunden (mit Countdown/Wartebalken) auszugrauen?
Bzw bei falscher Eingabe statt einer MSGBox ein Kurzvideo/Gif oder Jpeg aufleuchten zu lassen?
VG
Private Sub CheckBox5_Click()
Dim PW As String, Antwort As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
PW = "Bitte"
If CheckBox5 Then
Antwort = InputBox("Wie lautet das Zauberwort?", "Nicht so schnell!", "Passwort eingeben")
If Antwort PW Then
MsgBox "Computer sagt Nein", vbCritical, "Information"
Exit Sub
End If
End If
Rows("6").Hidden = Not CheckBox5
CheckBox1.Visible = CheckBox5
CheckBox2.Visible = CheckBox5
CheckBox4.Visible = CheckBox5
ToggleButton1.Visible = CheckBox5
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Anzeige