Visual Basic Macro só roda no meu usuário (rede)

[DenisJeronimo]

Ola Amigos.

Tenho uma dúvidas para compartilhar.

 

Eu fiz alguns comandos para o envio de um email para meu outlook, associei a esse envio o application.speech.speak... mas nada roda nos outros usuarios do mesmo pc. Somos em 3 pessoas 91 em cada turno) e eu gostaria que a Macro rodasse 24h, ou seja, nos 3 usuarios de rede que faça log in nesse pc

 

O que estou fazendo de errado? Por favor me digam (sou novo no VBA)

 

Seguem códigos

 

<>Sub AutoSuperAcao()
     
    'DIMensionei as variaveis Plan e PasTrab
    Dim Wb As Workbook
    Dim WsP1 As Worksheet
    'Desligo a tela
    Application.ScreenUpdating = False
    'declarei as 3 variaveis acima (com SET quando é Objeto)
    Set Wb = Workbooks("Posição Hora Hora - Entressafra.xlsm")
    'Ativo a Pastrab com os dados do Superação
    Wb.Activate
    Set WsP1 = Worksheets("Entressafra")
    'Seleciono a plan com os dados
    WsP1.Select
    'Seleciono a range com os dados
    WsP1.Range("a1:g40").Select
    'Ligo o "outlook no Excel"
    ActiveWorkbook.EnvelopeVisible = True
    'A mágica acontece
    With WsP1.MailEnvelope
        .Introduction = "E-mail enviado automaticamente"
        .Item.To = WsP1.Range("i11")
        .Item.Subject = WsP1.Range("i10")
        .Item.send
       ' MsgBox "E-mail enviado com sucesso as " & Hr, vbOKOnly, "Parabéns " & Range("i7") & "!!!"
    End With
    WsP1.Range("i2").Select
    
    'Ligo a tela
    Application.ScreenUpdating = True
   
  End Sub<>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
<>Public Sub TesteOnTime()
    'Avisar quanto tempo falta para o envio
    Call Application.OnTime(TimeValue("00:57:00"), "ChamarAtencao")
    'Avisar que está enviando
    Call Application.OnTime(TimeValue("00:59:52"), "UltimoAviso")
    'Chamar a SUB para enviar
    Call Application.OnTime(TimeValue("01:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("01:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("01:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("02:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("02:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("02:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("03:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("03:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("03:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("04:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("04:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("04:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("05:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("05:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("05:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("06:05:00"), "AutoSuperAcao")
                
    Call Application.OnTime(TimeValue("06:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("06:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("07:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("07:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("07:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("08:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("08:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("08:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("09:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("09:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("09:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("10:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("10:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("10:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("11:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("11:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("11:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("12:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("12:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("12:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("13:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("13:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("13:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("14:05:00"), "AutoSuperAcao")
        
    Call Application.OnTime(TimeValue("14:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("14:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("15:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("15:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("15:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("16:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("16:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("16:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("17:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("17:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("17:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("18:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("18:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("18:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("19:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("19:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("19:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("20:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("20:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("20:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("21:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("21:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("21:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("22:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("22:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("22:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("23:05:00"), "AutoSuperAcao")
    
    Call Application.OnTime(TimeValue("23:57:00"), "ChamarAtencao")
    Call Application.OnTime(TimeValue("23:59:52"), "UltimoAviso")
    Call Application.OnTime(TimeValue("00:05:00"), "AutoSuperAcao")
        
End Sub<>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 <>Sub ChamarAtencao()
    'DIMensionei as variaveis Plan e PasTrab
    Dim Wb As Workbook
    Dim WsP1 As Worksheet
    'declarei a variavel workbook (com SET porque é Objeto)
    Set Wb = Workbooks("Posição Hora Hora - Entressafra.xlsm")
    'Ativo a Pastrab com os dados do Superação
    Wb.Activate
    'declarei a variavel worksheet(com SET porque é Objeto)
    Set WsP1 = Worksheets("Entressafra")
    'Seleciono a plan com os dados
    WsP1.Select
     Application.Speech.Speak Range("i5")
 End Sub<>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

<>Sub UltimoAviso()
     Application.Speech.Speak ("Enviando e-mail em 5 segundos")
 End Sub<>
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 <>Sub testeBomDia()

    Select Case Time$
    
        Case "00:00:01" To "11:59:59"
            Application.Speech.Speak "Bom dia   " & Application.UserName

        Case "12:00:00" To "17:59:00"
            Application.Speech.Speak "Boa tarde   " & Application.UserName
           
        Case Else
            Application.Speech.Speak "Boa Noite   " & Application.UserName
    
    End Select

End Sub<>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''