Excel 2003 - Guardar 1 fichero en 2 sitios diferentes

Hola, Antonio.

Crea una carpeta Bk en la raíz de tu disco C, y experimenta un poco con el
siguiente código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Application.EnableEvents = False
x = ActiveWorkbook.FullName
ActiveWorkbook.Save
ActiveWorkbook.SaveAs "c:\Bk\" & Replace(Date, "/", "-") & " " _
& Replace(Replace(Time, ":", "-"), ".", "") & ".xls"
Workbooks.Open Filename:=x
Application.EnableEvents = True
ThisWorkbook.Close
End Sub


Esto lo debes pegar en el objeo ThisWorkbook, desde el Editor de VBA.

Ten en cuenta que el archivo en el que lo implementes ya debe estar
guardado. Puede fallar si lo pegas en un libro que nunca haya sido guardado.

El código te guardará una copia de respaldo con la fecha y la hora en que se
hizo la última modificación. Deberías periódicamente borrar aquellas copias
que ya sean muy viejas.

Si editas el código, podría ser que al producirse un error éste deje de
funcionar. Esto es debido a que al principio del mismo se deshabilitan los
eventos en Excel. Entonces deberías ejecutar la siguiente línea manualmente
en la ventana inmediato:

Application.EnableEvents = True

No olvides comentar los resultados.

Saludos...



"Antonio" escribió:

Hola a todos, tengo un fichero en Excel 2003 que utilizo y actualizo muchas
veces a lo largo del dia y con informacion que solo la tengo en el fichero.
Lo que queria hacer, si se puede, es que el fichero lo guarde en dos sitios
diferentes a la vez como medida de seguridad. Es que hoy perdi la informacion
de tres dias y me podeis creer que es mucha. Si se pudiera guardar en dos
sitios siempre tendria una copia de seguridad con los ultimos fichero
guardados. He visto que tiene una opcion para hacer copias cada ciertos
minutos pero eso es por si se produce un cierre inesperado del programa, pero
no como copia de seguridad real.

Os agradezco vuestra ayuda.
Un saludo a todos.