AUTOGUARDAR CADA "x" SEGUNDOS

Pega esto en el módulo del libro (en ThisWorkbook):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
PararReloj
End Sub

Private Sub Workbook_Open()
LanzarReloj
End Sub


Y esto otro en un módulo creado por ti:


Dim dtHoraSiguiente As Date

Sub LanzarReloj()
GuardarLibro
End Sub

Sub PararReloj()
'Desactivar el evento Ontime
On Error Resume Next
Application.OnTime dtHoraSiguiente, "GuardarLibro", , False
End Sub

Sub GuardarLibro()
'Guardar el libro actual
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
'Lanzar el siguiente evento 10 segundos después
dtHoraSiguiente = Now + (10 / 86400) 'Para guardar el libro cada 10 segundos
Application.OnTime dtHoraSiguiente, "GuardarLibro"
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

"ABEL" escribió en el mensaje news:03b101c3a9cd$4acdd8a0$
Buenas,
estoy trabajando con Excel 2000, y tengo una pagina de
Excel, y necesito que cada "x" segundos se guarde sóla,sin
dar a nada.la opcion de autoguardar no me vale,porque es
cada 5 minutos,necesito un periodo de tiempo menor.
¿como lo hago?
¿pueden contestar a mi mail: ?
gracias,
abel

Buenos dias
He insertado eso,pero a la hora de depurar,me da error,me
dice que SE ESPERABA FINALIZACION DE LA INSTRUCCION, me
puede decir a que puede ser debido?
gracias,
me lo puede explicar paso por paso,que es la primera vez
que programo en excel?

muchisimas gracias
un abrazo,abel

Pega esto en el módulo del libro (en ThisWorkbook):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
PararReloj
End Sub

Private Sub Workbook_Open()
LanzarReloj
End Sub


Y esto otro en un módulo creado por ti:


Dim dtHoraSiguiente As Date

Sub LanzarReloj()
GuardarLibro
End Sub

Sub PararReloj()
'Desactivar el evento Ontime
On Error Resume Next
Application.OnTime dtHoraSiguiente, "GuardarLibro", ,

False

End Sub

Sub GuardarLibro()
'Guardar el libro actual
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
'Lanzar el siguiente evento 10 segundos después
dtHoraSiguiente = Now + (10 / 86400) 'Para guardar el

libro cada 10 segundos

Application.OnTime dtHoraSiguiente, "GuardarLibro"
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

"ABEL" escribió en el mensaje

news:03b101c3a9cd$4acdd8a0$

Buenas,
estoy trabajando con Excel 2000, y tengo una pagina de
Excel, y necesito que cada "x" segundos se guarde

sóla,sin

dar a nada.la opcion de autoguardar no me vale,porque es
cada 5 minutos,necesito un periodo de tiempo menor.
¿como lo hago?
¿pueden contestar a mi mail: ?
gracias,
abel
.

Posiblemente alguna instrucción se ha "roto" al pegarla en la ventana de código. Compruebe que ninguna línea de código aparezca en rojo. Si alguna lo hiciera, tendría que moverla al final de la línea superior.

Si no consigue que le funcione, puedo enviarle un libro de ejemplo con el código operativo.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"ABEL" escribió en el mensaje news:0b6201c3a9d9$8f97bf30$
Buenos dias
He insertado eso,pero a la hora de depurar,me da error,me
dice que SE ESPERABA FINALIZACION DE LA INSTRUCCION, me
puede decir a que puede ser debido?
gracias,
me lo puede explicar paso por paso,que es la primera vez
que programo en excel?

muchisimas gracias
un abrazo,abel

Buenas,
lo he copiado de nuevo,y nada,me da error inesperado,falta
de codigo,la primera linea se pone en rojo.
me puede mandar un ejemplo?
gracias,
un abrazo y gracias por todo
abel

Posiblemente alguna instrucción se ha "roto" al pegarla

en la ventana de código. Compruebe que ninguna línea de
código aparezca en rojo. Si alguna lo hiciera, tendría que
moverla al final de la línea superior.

Si no consigue que le funcione, puedo enviarle un libro

de ejemplo con el código operativo.

Un saludo.


Fernando Arroyo
MS MVP - Excel


"ABEL" escribió en el mensaje

news:0b6201c3a9d9$8f97bf30$

Buenos dias
He insertado eso,pero a la hora de depurar,me da error,me
dice que SE ESPERABA FINALIZACION DE LA INSTRUCCION, me
puede decir a que puede ser debido?
gracias,
me lo puede explicar paso por paso,que es la primera vez
que programo en excel?

muchisimas gracias
un abrazo,abel

.