Excel Parar Macro ao fechar planilha

[crownics]

Pessoa, bom dia!

 

Me ajudem?

 

Tenho uma planilha, onde eu coloquei uma macro para atualizar atualiza a hora automaticamente na planilha, e coloquei para começar a rodar esta macro toda vez que eu abro o arquivo, porém na hora de fechar, eu salvo normalmente o arquivo, ele fecha mas reabre sozinho por causa do macro.

 

Queria saber se tem como resolver isso. Pensei em talvez fazer uma macro para fazer esta outra parar de rodas.

 

Segue dados:

 

 

Citação

Sub Relogio()
Range("s2") = Time
Application.OnTime (Now()) + TimeValue("00:00:01"), "Relogio"
End Sub
 

Citação

Private Sub workbook_open()
    Relogio
End Sub
 

 

[crownics]

@Muca Costa

@Visitante

 

[Edson Luiz Branco]

Num módulo convencional:

 

Public RelogioLigado As Boolean
Sub Relogio()
  Static tempo As Date
  If RelogioLigado Then tempo = Now() + TimeValue("00:00:05")
  Range("s2") = Time
  Application.OnTime tempo, "Relogio", , RelogioLigado
End Sub

 

No do Workbook:

 

Private Sub Workbook_Open()
  RelogioLigado = True
  Call Relogio
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  RelogioLigado = False
  Call Relogio
End Sub

 

[crownics]

@Edson Luiz Branco Não rodou...

 

[Edson Luiz Branco]

Aqui funcionou.

Anexe o arquivo, por gentileza.

Obs.: não dá pra rodar  o código no modo de depuração, senão não roda mesmo.

[crownics]

@Edson Luiz Branco

 

Segue em anexo. 

 

Modelo.zip

[crownics]

@Edson Luiz Branco

 

Segue print do local do erro:

 

[Edson Luiz Branco]

No modelo que você anexou, você esqueceu de uma vírgula na linha do OnTime.

 

Também pode ocorrer erro se você demorar em responder à alguma caixa de diálogo em espera, por exemplo a de salvar alterações, atualizar vínculos, etc, pois o delta T que você usa é muito pequeno.

 

Para contornar esse problema, usei um tratamento de erro pra seguir a execução.

 

Segue o arquivo anexado.

Modelo Registro de contato(EdsonBR).7z

[crownics]

Deu certo! Obrigado!

[Patropi]

@crownics

 

Se a resposta do Edson resolveu a dúvida, marque ela como solução.

 

[]s