Zustand von CapsLockON in Userform darstellen
30.10.2007 11:14:04
CapsLockON
Ich habe eine Excel Tabelle erstellt. Beim Öffnen habe ich eine Passwortabfrage gebastelt. Beim 2.MAl falsch wird die Anwendung geschlossen. PROBLEM: Nun möchte ich den Zustand der CApslock -Taste in einem Label darstellen, um bei eingeschalteter CapsLock den Benutzer daraufhinweisen zu können.
Es soll also nur stehen"CapsLock ist an!" als Label in der Userform.
Ähnlich bei Windows Anmeldung.
Hier mein Code für die Userform:
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
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
Zur Zeit mache ich die Abfrage capslockON noch mit Schaltfläche:
Private Sub CommandButton3_Click()
Call hochstellON
End Sub
Hier das MAkro dazu:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Function CapsLockOn() As Boolean
Dim xState As Integer
xState = GetKeyState(vbKeyCapital)
CapsLockOn = (xState = 1 Or xState = -127)
End Function
Sub hochstellON()
'
' hochstellON Makro
' Makro am 30.10.2007 von mike aufgezeichnet
'
'
If CapsLockOn = True Then
MsgBox "CapsLock ist eingeschaltet!"
Else
MsgBox "CapsLock ist ausgeschaltet!"
End If
End Sub
Ich hoffe Ihr könnt mir weiterhelfen!
Vielen Dank im Vorraus!
Gruß
Mike