Guardar excel automáticamente


Este sencillo código evita dolores de cabeza, al guardar automáticamente cada 1 minuto, en este caso, pero se puede configurar al tiempo que se desee, cambiando time value; cuantas veces nos ha pasado que se tilda la pc o simplemente se corta la luz y perdemos todo el trabajo realizado por no guardar el archivo ya sea porque nos olvidamos o porque nos da pereza guardar el archivo, con este código agregado a tu libro no tendrás que guardar más ya que lo hace automáticamente.

Código que se inserta en thisworkbook

Private Sub Workbook_Open()


Application.OnTime Now + TimeValue("00:01:00"), "grabando"
End Sub


Código que se debe insertar en un módulo de VBA
Sub grabando()
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:01:00"), "grabando"

End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página click para descargar.




If this post was helpful INVITE ME A COFFEE and so help keep up the page.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends