vba to alert user that the CAPS LOCK is on

[cjcass]

Hello,

I have some code that creates an input box for inputting a password and if the password is incorrect a message box is created (see code below). It would be good to have some additional vba that detects at this point whether the CAPS LOCK is on and then give a second message to the user letting them know that the CAPS LOCK is 'on'. Can this be achieved?

Any help much appreciated.

If Len(sErrors) > 0 Then MsgBox "Incorrect password for:" & sErrors, vbOKOnly

 

[cjcass]

Ok, have found a solution...
Insert module:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

Function CapsLock() As Boolean
Dim Res As Long
Dim KBState(0 To 255) As Byte
Res = GetKeyboardState(KBState(0))
CapsLock = KBState(&H14) And 1
End Function

Then use this code:

If CapsLock = True Then MsgBox "Caps is on"

If anyone can spot any potential issues with this then please let me know.
Thanks to anyone who put any time to this.

 

[Yongle]

Simpler option would be to place the onus on the user and amend the message ...
If Len(sErrors) > 0 Then MsgBox "Incorrect password for: " & sErrors & vbCr & "Is CapsLock on ?", vbOKOnly

If anyone can spot any potential issues with this then please let me know

Read this

Declaring API functions for 64 bit Office (and Mac Office)

JKP Application Development Services, Microsoft Office Application Development

jkp-ads.com

 

[Yongle]

Member in thread below is having problem making 32bit code work with 64bit Office
You may be interested in watching how it develops ...

"SetWindowsHookEx" Crashing Excel x64

Hello. For a while I've been using the MsgBoxCB sub from Dan Elgaard (www.EXCELGAARD.dk) in order to have message boxes with custom button text. Up until now I have been using Excel 2007-2019 x32 and everything has been working perfectly. Recently I started testing my application on Excel 2016...

www.mrexcel.com

 

[cjcass]

Thanks Yongle, I did think about the simple method you've described above by adding the 'is CapsLock on' but thought the solution I've got looks a bit slicker to the end user, however, when I saw the 32bit part of the code it did ring alarm bells, hence my comments about running into problems, so many thanks for the link that's just the type of thing I need to watch