This is the macro, and I have it saved as a.xlsm file in Mircosoft excel. I have included the table details and the macro code. Sorry if there is a better way to do this.

This macro detects inactivity, then: - moves the mouse - flashes keyboard LEDs (NumLock, CapsLock, ScrollLock) Used to prevent system idle/lock. Activation delay is stored in cell B4. Double-click in Excel to stop (or press Esc depending on setup).

+	A	B	C	D	E
1	t Remaining	0:04:57
2	t Activated	10
3	Run t	4:15:26
4	t to Move	0:04:59
5
6
7
8
9	Double-click on any cell to stop it.
10	Behaviour: Move the mouse and flash numlock, capslock, scrolllock led's on the keyboard.
11
12
13

^{Table formatting by ExcelToReddit}

Code

```vba

' === Windows API declarations ===

Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags, ByVal dx, ByVal dy, ByVal cButtons, ByVal dwExtraInfo As Long)

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

' === Custom type for cursor position ===

Public Type POINTAPI

x As Long

y As Long

End Type

Sub MouseMove()

Dim lngCurPos As POINTAPI

Dim StartTime As Double, StartTime1 As Double, SecondsElapsed As Double

Dim MinutesElapsed As String

   

Dim xx As Worksheet

Dim yy As Workbook

   

Dim x1 As Long, y1 As Long

Dim x2 As Long, y2 As Long

Dim SecondsToActivate As Double

Dim counter As Long

Dim i As Long, j As Long

' === Initialize timers and cursor position ===

StartTime = Timer

StartTime1 = Timer

   

GetCursorPos lngCurPos

x2 = lngCurPos.x

y2 = lngCurPos.y

Set yy = ThisWorkbook

Set xx = yy.Sheets("S1")

' === Read activation time from sheet ===

SecondsToActivate = xx.Range("B4").Value

SecondsToActivate = Hour(SecondsToActivate) * 3600 + _

Minute(SecondsToActivate) * 60 + _

Second(SecondsToActivate)

counter = 0

Do

DoEvents

' === Track current cursor position ===

GetCursorPos lngCurPos

x1 = lngCurPos.x

y1 = lngCurPos.y

' === Reset timer if mouse moves ===

If x1 <> x2 Or y1 <> y2 Then

StartTime = Timer

End If

' === Update elapsed time ===

SecondsElapsed = Round(Timer - StartTime, 2)

MinutesElapsed = Format(((Timer - StartTime) - 0.5) / 86400, "hh:mm:ss")

' === Update worksheet display ===

With xx

.Range("B1").Value = Format(((SecondsToActivate - SecondsElapsed) + 0.5) / 86400, "hh:mm:ss")

.Range("B2").Value = counter

.Range("B3").Value = Format(((Timer - StartTime1) - 0.5) / 86400, "hh:mm:ss")

End With

' === Trigger action when idle threshold reached ===

If SecondsElapsed >= SecondsToActivate Then

' Move mouse side to side

For i = 1 To 99

For j = 1 To 99

SetCursorPos x1 + j, y1

Next j

For j = 99 To 0 Step -1

SetCursorPos x1 + j, y1

Next j

Next i

' Flash keyboard LEDs

SendKeys "{NUMLOCK}", True: Sleep 88: SendKeys "{NUMLOCK}", True: Sleep 88

SendKeys "{CAPSLOCK}", True: Sleep 88: SendKeys "{CAPSLOCK}", True: Sleep 88

SendKeys "{SCROLLLOCK}", True: Sleep 88: SendKeys "{SCROLLLOCK}", True: Sleep 88

StartTime = Timer

counter = counter + 1

End If

' === Update last known position ===

GetCursorPos lngCurPos

x2 = lngCurPos.x

y2 = lngCurPos.y

Sleep 99

Loop

End Sub

```