Queria saber como interromper o comando e iniciar ele novamente com um novo tempo.

Ao abrir a planilha o OnTime é executado para fechar a planilha após 15min, esse tempo indica que a planilha não está sendo usada. Porém, se ao abrir um formulário, como exemplo, ao fechar o formulário o OnTime deve ser reprogramado para fechar a planilha após 15min a partir da hora que o formulário foi fechado.

Ao invocar a Sub executar pela primeira vez e esperar o 15min funciona perfeitamente. Se for invocado a Sub parar, o comando OnTime para. Porém se invocar a Sub parar e na sequencia invocar a Sub executar informando um novo tempo o comando não funciona.

Algum dica/sugestão

Abaixo o exemplo: 

 

public Tempo as date

Sub executar ()

Tempo = Now + TimeValue("00:14:59")

call Application.OnTime Tempo, "fechar", , True

End Sub

 

Sub parar ()

 On Error Resume Next
 call Application.OnTime Tempo, executar, , False
 Tempo = Empty

End Sub

 

Sub fechar ()

ActiveWorkbook.Save ' SALVA A PLANILHA
Application.Quit         ' FECHA O APLICATIVO E TODAS AS PLANILHAS

End Sub