Excel 2010  lo segna in fondo a sinistra del foglio aperto

Va selezionato

Ciao,

devi fare ricorso alle API.

Ti giro un codice esempio e  anche un allegato.

`Option Explicit
Private Declare PtrSafe Function GetKeyState Lib "User32.dll" (ByVal nVirtKey As Long) As Long
Const VK_NUMLOCK  As Long = &H90

Function IsNumLockOn() As Boolean
    IsNumLockOn = (GetKeyState(VK_NUMLOCK) And 1)
End Function

Sub testNum()

    If IsNumLockOn() Then
        MsgBox "il NUM BLOCK E' ATTIVO"
    Else
        MsgBox "il NUM BLOCK E' SPENTO"
    End If
End Sub


`

il modo più semplice:

Sub NumLockToggle()
  SendKeys "{NUMLOCK}{NUMLOCK}"
End Sub

altirmenti:

'https://stackoverflow.com/questions/42440776/turning-numlock-on-at-the-end-of-a-macro-run
#If VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, _
                                                              ByVal dwFlags As LongPtr, ByVal dwExtraInfo As LongPtr)
    Private Declare PtrSafe Function GetKeyboardState Lib "user32.dll" (ByVal lpKeyState As LongPtr) As Boolean
#Else
    Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, _
                                                      ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare Function GetKeyboardState Lib "user32.dll" (ByVal lpKeyState As Long) As Boolean
#End If

Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const VK_NUMLOCK As Byte = &H90
Private Const NumLockScanCode As Byte = &H45

Private Sub ToggleNumlock(enabled As Boolean)
    Dim keystate(255) As Byte
    'Test current keyboard state.
    GetKeyboardState (VarPtr(keystate(0)))
    If (Not keystate(VK_NUMLOCK) And enabled) Or (keystate(VK_NUMLOCK) And Not enabled) Then
        'Send a keydown
        keybd_event VK_NUMLOCK, NumLockScanCode, KEYEVENTF_EXTENDEDKEY, 0&
        'Send a keyup
        keybd_event VK_NUMLOCK, NumLockScanCode, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0&
    End If
End Sub


Public Sub NumLockOn()
  ToggleNumlock True
End Sub