How to Turn CAPS LOCK off / on?

[DCSwearingen]

Is there a simple code to detect the current state of the Caps Lock?

A coworker has a spreadsheet used by many people, she wants all entries to be capitilized.

What I would like to do is detect the Caps Lock state with Private Sub Workbook_Open () and save that state (in a hidden sheet? Suggestion?) Then, ensure the Caps lock is on.

When the workbook is closed, I want to use Private Sub Workbook_BeforeClose () to return the Caps Lock to the state it was prior to this workbook being opened.

[royUK]

Call this macro from the Workbook_Open_Event

Please Login or Register  to view this content.

[dominicb]

Good afternoon DCSwearingen

This is not an easy thing to do. You need to use keyboard hooks, API's and Class modules to actually affect the CapsLock (or NumLock, or ScrollLock). There is a routine here which is fairly easy to implement that will detect the state of the CapsLock :
http://vbnet.mvps.org/index.html?code/internet/ping.htm

I do have a routine which I can't reproduce on here which will turn on or off CapsLock automatically. If anyone wants it, just PM me your e-mail address.

HTH

DominicB

[DCSwearingen]

shLookup is the name property for a hidden sheet in the workbook.

Modifying the suggestion by royUK, this code is in ThisWorkbook:

I call this routine from the Workbook_Open event:

Please Login or Register  to view this content.

and I call this routine from the Workbook_BeforeClose event:

Please Login or Register  to view this content.

It isn't automatic, but it does remind the user when to change the Caps Lock...