VBA Mengaktifkan Capslock

Ada sebuah pertanyaan, bagaimana jika ingin sebuah aplikasi Excel, keyboard selalu dalam keadaan Capslock ON.

Bisa menggunakan Windows API menggunakan VBA untuk mengecek apakah Capslock pada keyboard on atau tidak, setelah itu lakukan sendkeys dengan script.

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const kCapital = 20

'-----------------------------------------
' Sctipt VBA    : Capslock keyboard
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------

Public Function CapsLock() As Boolean
    CapsLock = CBool(GetKeyState(kCapital))
End Function

Private Sub Workbook_Activate()
    If Not CapsLock Then
        Application.SendKeys "{Capslock}"
    End If
End Sub
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search