Verificar se a tecla Capslock esta ativada com macro

Question

Bom dia pessoal..

Bom, criei um Userform com um textbox onde a pessoa digita a senha.

Queria que ao abrir esse Userform, se a tecla Capslock estiver ativada, aparecer uma mensgem falando que ela esta ativada.

Queria fazer isso usando Macro.

Teria como??

Um ótimo dia a todos e forte abraço.

Answer 1

Olá,

use esta função para detectar se o Caps Lock está ativado. Com base no resultado, você exibe ou não o aviso.

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Function ISCapslockOn() As Boolean

    Dim Tmp As Long

    Tmp = GetKeyState(vbKeyCapital)

  If Tmp = 1 Then

    ISCapslockOn = True

  Else

    ISCapslockOn = False

  End If

End Function

Answer 2

Luiz Cláudio muito obrigado pelas informações

O código ficou perfeito.

Mais uma vez muito obrigado e  tenha um ótimo dia.