¿Cómo detener un macro en bucle al cerrar Excel?

[Jant]

Hola soy nuevo en la programación en vba, tengo un libro compartido en el que al abrirlo se auto ejecuta un macro que hace que el libro se guarde a los 10 mins. de haberlo abierto, este se ejecuta como bucle. Pero tengo un problema, y es que a pesar de que yo cierre el libro de excel, este se vuelve a abrir y ejecutar el macro. Quise usar la opción "Exit Sub" pero no supe cómo programarlo, agradeceré mucho su apoyo. Mis macros para efectuar la tarea son los siguientes:

Sub Auto_Open()
  Hora = Now + TimeValue("00:10:00")
  Application.OnTime Hora, "Guardar"
 End Sub

 

Sub guardar()
ThisWorkbook.Save
Auto_Open
End Sub
 

[Héctor Miguel]

prueba cambiando tus códigos a la siguiente estructura (todo en el mismo módulo):

Dim siguiente As Date
Const tiempo As String = "0:10:00"

Sub Auto_Open()
  guardar
End Sub
Sub Auto_Close()
  detener
End Sub

Sub guardar()
  siguiente = Now + TimeValue(tiempo)
  ThisWorkbook.Save
  Application.OnTime Siguiente, "guardar"
End Sub
Sub detener(): On Error Resume Next
  Application.OnTime siguiente, "guardar", Schedule:=False
End Sub

 

[Jant]

Muchas gracias, me funcionó a la perfección