Como iniciar/detener un auto guardado en excel

Por Internet encontré un código para realizar un auto guardado en mi archivo cada 2 minutos, el problema es que cuando lo ejecuto no puedo pararlo hasta cerrar el archivo, quisiera saber si alguien sabe un método para ejecutar y detener esta macro.

Public Sub Macro1 ()
ActiveWorkbook.Save
Hora = Now + TimeValue("00:02:00")
Application.OnTime Hora, "Macro1”
End Sub

2 respuestas

Respuesta
1

Esta puede ser una opción.

Public Sub Macro1()
    ActiveWorkbook.Save
    If Sheets("Hoja1").Range("Z1") = "x" Then
        Exit Sub
    End If
    Hora = Now + TimeValue("00:02:00")
    Application.OnTime Hora, "Macro1”"
End Sub

La macro ya no se ejecuta, si en la hoja1 celda Z1 escribes una x

En teoría con esta instrucción se debería detener, pero a veces me funciona y a veces no, por eso te puse la opción de un valor en la celda

Application.OnTime Hora, "Macro1", , False

La macro quedaría así:

Public Sub Macro1()
    ActiveWorkbook.Save
    Hora = Now + TimeValue("00:00:03")
    If Sheets("Hoja1").Range("Z1") = "x" Then
        On Error Resume Next
        Application.OnTime Hora, "Macro1", , False
        Exit Sub
    End If
    Application.OnTime Hora, "Macro1"
End Sub

Saludos.Dante Amor

Respuesta
1

Este seria el código.:

*****Activa
Public Sub Macro1 ()
ActiveWorkbook.Save
Hora = Now + TimeValue("00:02:00")
Application.OnTime Hora, "Macro1”
End Sub
*****Desactiva
Public Sub Macro2 ()
Application.OnTime EarliestTime:=TimeValue("00:02:00"), _
    Procedure:="Macro1", Schedule:=False
End Sub

Suerte!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas