Ricardo, bom dia!

É possível disponibilizar o código que você já tem para ficar mais fácil desenvolver algo para suprir a sua necessidade?

Att,

MDS

Obrigado pelo retorno, segue o código!

Public Sub TesteOnTime()
    
Call Application.OnTime(TimeValue("10:00:00"), "teste")

Call Application.OnTime(TimeValue("10:02:00"), "pdf")
        
Call Application.OnTime(TimeValue("10:03:00"), "EnviarEmail")
Sub EnviarEmail()

    Dim appOutlook As Object
    Dim olMail As Object
    
    
    On Error Resume Next
    Set appOutlook = GetObject(, "Outlook.Application")
    If appOutlook Is Nothing Then
        Set appOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    
    Set olMail = appOutlook.CreateItem(0)
    
    With olMail
        .To = "Coloco meu e-mail"
        .Subject = "Teste relatório diário"
        .Attachments.Add "G:TecnologiaRelatório Diário.pdf"
        .body = "Este e-mail é um teste para um projeto de programação que nos enviará os resultados  automaticamente (obs: os resultados  são reais - a serem conferidos amanhã)"
        .Send
   
    End With

End Sub
Sub teste()

'ÁREA ESPECIAIS

Workbooks("Analises Quimicas myLIMS.xlsm").Activate

Workbooks("Analises Quimicas myLIMS.xlsm").Worksheets("Especiais").Select

Cells(3, 4).Value = 47

'Application.Run "'Analises Quimicas myLIMS.xlsm'!AumentaDataAE_myLIMS"

Application.Run "'Analises Quimicas myLIMS.xlsm'!ImportaEspeciais_DiaCorrente_myLIMS"

    Range("C7:I31").Copy
    
    Windows("Novo(a) Planilha do Microsoft Excel.xlsm").Activate
    
    Sheets("Analises").Select
    
    Range("C5").Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sub pdf()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:Tecnologia da ProducaoUsinaBeneficiamentoOperaçãoDados 2015Relatório Diário.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

End Sub

Nas minhas tentativas está dando erro na hora de anexar o arquivo no e-mail, porém quando desbloqueio o computador a macro de puxar os dados também não puxou. Por isso, penso que o código não está rodando com o PC bloqueado.

Pessoal, pesquisando sobre o tema aqui apresentado achei um código (link abaixo) que teoricamente desativaria esse TimeOut do computador, que na minha empresa por questões de segurança é de 30 minutos. Porém por algum motivo não esta dando resultado (não sei se estou utilizando-o de forma inadequada), caso alguém consiga ajudar ficaria muito grato!

Segue o LINK:

http://www.xtremevbtalk.com/showthread.php?t=91017

Desde já, obrigado!

Att,