📊 VBA (Excel)
Apply Enable Num Lock on Startup (VBA)
Turns Num Lock on by default for every new sign-in. Applied via WScript.Shell.RegWrite from VBA.
EnableNumlockOnStartupRegSet.bas
Attribute VB_Name = "EnableNumlockOnStartupRegSet"
Option Explicit
Public Sub EnableNumlockOnStartupRegSet()
Dim wsh As Object
Dim regPath As String
Set wsh = CreateObject("WScript.Shell")
regPath = "HKEY_LOCAL_MACHINE\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators"
wsh.RegWrite regPath, "2", "REG_SZ"
MsgBox "Enable Num Lock on Startup applied." & vbCrLf & regPath, vbInformation
End Sub