Office: Prüfen ob CapsLock An ist?

Hallo!

Könnt ihr mir bitte erklären wie ich prüfen kann, ob Capslock eingeschaltet ist?

nach der ersten Falscheingabe eines Passwortes sollte geprüft werden, ob vielleicht die CAPSLOCK Taste eingeschaltet ist!
Hier mein Code:

Private Sub CmdOK_Click()
PWWR = Sheets("Gerät").Range("AZ2")
Passwort = Sheets("Gerät").Range("AZ1")
If Secure.TextBox1.Value = Passwort Then
Sheets("Gerät").Select
ActiveSheet.Unprotect
Columns("AA:AZ").Select
Selection.EntireColumn.Hidden = True
Range("C11:C13").Select
Selection.Locked = False
Range("B11:B13").Select
Selection.Locked = False
ExecuteExcel4Macro ("SOUND.PLAY(,""//ausbserver1\home\Gerätebezeichnung\Klänge\welcome.wav"")")
ActiveSheet.Protect
Range("H8").Select
Unload Secure
Call security.Zu
Sheets("Gerät").Range("AZ2") = ""

Else
hier müsste die Abfrage kommen
PWWR = PWWR + 1
Text = "Bitte Neueingabe, der Code war FALSCH!"
Label1.Caption = Text
ExecuteExcel4Macro ("SOUND.PLAY(,""//ausbserver1\home\Gerätebezeichnung\Klänge\bad.wav"")")
If PWWR > 1 Then
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "Na, wer wird denn hier Hacken wollen? Anwendung wird geschlossen! ;-)"
Stil = vbCritical
Titel = "OHNE PASSWORT GEHTS NICHT!"

Antwort = MsgBox(Mldg, Stil, Titel)
ExecuteExcel4Macro ("SOUND.PLAY(,""//ausbserver1\home\Gerätebezeichnung\Klänge\so.wav"")")

Unload Secure
Application.Quit
ThisWorkbook.Close False

End If
Sheets("Gerät").Range("AZ2") = PWWR
End If

End Sub

was ich bisher gefunden hab (vbkeyCapslock) funzt nicht!

Dankeschön im Vorraus!
Gruß

Mike

 

Habe noch eine weitere Frage:
Im Anhang ist eine Word datei mit einem Screenshot meines Anmeldebildschirmes. CapsLock ON? in rot soll nur erscheinen wenn die CapsLock wirklich an ist. ist das machbar?

Danke schonmal !"

Mike

 

Hallo!

Wie man den Status der Taste CapsLock prüfen kann, weiß ich leider auch nicht, aber kommt nicht eine Prüfung auf Großbuchstaben in etwa auf's gleiche raus?

Code:

If Eingabe = UCase(Eingabe) Then ...