#If Win32 Then
    Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
    Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal x As Long, ByVal y As Long, ByVal cButton As Long, ByVal dwExtraInfo As Long)
#Else
    Declare PtrSafe Function SetCursorPos Lib "User" (ByVal x As Integer, ByVal y As Integer)
    Declare PtrSafe Sub mouse_event Lib "User" (ByVal dwFlags As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cButton As Integer, ByVal dwExtraInfo As Integer)
#End If

Sub myMoveCursor()
'    Exit Sub
    Static dt As Date
    If dt < Now - TimeSerial(0, 5, 0) Then
        dt = Now
        Dim y As Integer
        Dim x As Integer
    
        On Error Resume Next
            y = ActiveWindow.ActivePane.PointsToScreenPixelsY(ActiveCell.Top + ActiveCell.Height * Rnd())
            x = ActiveWindow.ActivePane.PointsToScreenPixelsX(ActiveCell.Left + ActiveCell.Width * Rnd())
        On Error GoTo 0
        If y > 0 Then
        If x > 0 Then
            SetCursorPos x, y
            mouse_event &H2, 0&, 0&, 0&, 0&
            mouse_event &H4, 0&, 0&, 0&, 0&
        End If
        End If
        DoEvents
    End If
End Sub

Sub TurnOffSleep()' вызвать вначале Вашего макроса
    Dim WshShell As Object, strCommand As String
    strCommand = " & powercfg -X -monitor-timeout-ac 0 & powercfg -X -disk-timeout-ac 0 & powercfg -X -standby-timeout-ac 0 & powercfg -X -hibernate-timeout-ac 0"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "cmd.exe /C powercfg -h off " & strCommand, 1, False
End Sub

Sub TurnOnSleep()'вызвать вконце Вашего макроса
    Dim WshShell As Object, strCommand As String
    strCommand = " & powercfg -X -monitor-timeout-ac 30 & powercfg -X -disk-timeout-ac 90 & powercfg -X -standby-timeout-ac 90 & powercfg -X -hibernate-timeout-ac 120"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "cmd.exe /C powercfg -h on " & strCommand, 1, False
End Sub

Sub TurnOffPlayer()
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "cmd.exe /C TASKKILL /IM vlc.exe", 1, False
End Sub

Private Declare Function SetThreadExecutionState Lib "kernel32" (ByVal esFlags As Long) As Long
Private Const ES_SYSTEM_REQUIRED = &H1
Private Const ES_DISPLAY_REQUIRED = &H2
Private Const ES_CONTINUOUS = &H80000000

Sub Макрос()
     Call SetThreadExecutionState(ES_CONTINUOUS Or ES_DISPLAY_REQUIRED)

      'комманды

     Call SetThreadExecutionState(ES_CONTINUOUS)
End Sub