Programando o evento On_Time

Se você deseja programar algo no excel para acontecer em tal hora ou data, vc deve acionar o evento On_Time no VBA. Através de poucas linhas de codigo vc consegue fazer esse agendameto.
No exemplo a seguir vamos vincular o evento On_Time com o Auto_Open. “Agendaremos” o excel para fechar automaticamente em apenas 15 segundos após sua abertura.
Abra uma pasta de trabalho, pressione Alt+F11 e insira um novo modulo no VBA. Copie e cole o seguinte código:

Sub auto_open()
    Dim Fechar As Date
    Fechar = Now + TimeValue(“00:00:15”)
    Application.OnTime Fechar, “APP_fechar”

End Sub

Sub APP_fechar()
Application.DisplayAlerts = False
Application.Quit
End Sub

Caso você tenha uma dica ou truque, envie para nós: [email protected]
Por: Tomás Rangel