Excel Macro para não deixar o PC entrar em descanso/proteção de tela

[luizdeath]

Bom dia,

 

Tenho uma macro que deve ser executada as 00h todos os dias e dou start nela por volta das 18h, porém nesse meio tempo o meu PC está entrando em tela de descanso ou proteção de tela e com isso alguns sendkeys que tem na macro não funciona.

 

Já tentei desativar a proteção e o bloqueio no windows, porém como o PC é empresarial ele volta para a configuração básica toda a noite, após 15 min ele entra em proteção de tela.

 

Tentei usar algumas funções, tipo sendkeys para esquerda e para direita, mas mesmo assim o PC entra em proteção de tela.

 

ps. não precisa ser exatamente um macro, se existir alguma "gambiarra" que resolva o problema do bloqueio já ajuda rsrs...

 

Segue codigo que estou usando:

Sub ssss()
Dim Hora As Date

Application.ScreenUpdating = False

Do
Hora = (Format(TimeValue(Now), "hh:mm:ss"))
Range("A1").Select
If Hora > TimeValue("23:59:30") And Hora < TimeValue("23:59:59") Then
    Call EXEC
    Exit Do
Else
ActiveCell.Offset(0, 1).Select 'aqui tentei usar o mover para esquerda para tentar não bloquear o PC

End If

Loop
    
Application.ScreenUpdating = True

End Sub

 

[Basole]

Veja esta dica neste link:  Desabilitar a proteção de tela do computador

[luizdeath]

Basole.

Parece que funcionou, muito obrigado.