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.
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.
UN CAFÉ y de esta manera ayudar a seguir
manteniendo la página click para descargar.
.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends