Thema Datum  Von Nutzer Rating
Antwort
Rot Zustand von CapsLockON in Userform darstellen
30.10.2007 10:52:39 Mike
NotSolved
30.10.2007 18:19:12 Holger
NotSolved

Ansicht des Beitrags:
Von:
Mike		 Datum:
30.10.2007 10:52:39		 Views:
1646		 Rating:
     
Antwort:
  Ja
Thema:
Zustand von CapsLockON in Userform darstellen
Hallo! 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!"
Ä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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zustand von CapsLockON in Userform darstellen
30.10.2007 10:52:39 Mike
NotSolved
30.10.2007 18:19:12 Holger
NotSolved