Foro Excel

Muchas veces Excel nos juega una mala pasada y nos daña el libro. Y en muchos casos, la herramienta de autorrecuperación no es del todo buena y solo podemos recuperarlo en parte. Es allí cuando pensamos que haber tenido un backup era lo mejor. Con esta macro, cada vez que guardes tu libro se guardará una copia del mismo. Nos ha salvado el trabajo mucha veces!

Cuando guardes tu libro, se guardará automáticamente una copia en la misma ruta con el nombre original + la palabra backup. Si el original se te volvió corrupto y ya no lo puedes abrir, puedes recurrir al backup.

Esta macro la debes poner en el módulo ThisWorkbook

Código: Seleccionar todo

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Ruta As String, Nombre As String, Version As String
Application.StatusBar = "Guardando BACKUP..."
Ruta = ActiveWorkbook.Path
Nombre = Left(ActiveWorkbook.Name, 13) & " - BACKUP.xlsm"
ActiveWorkbook.SaveCopyAs Filename:=Ruta & "\" & Nombre
Application.StatusBar = False
End Sub

Es una muy buena respuesta, de hecho utilicé tu macro para un archivo compartido en la empresa.
Acceden múltiples usuarios y guarda un backup en el que alteré el código con "Environ" para que se añadiese el nombre de User Name, y añadir más control al asunto.

Mi problema radica en que sólo en algunos usuarios, el programa falla y da un error de recuperación,
he probado y se arregla quitando la macro de backup. alguien sabe por qué falla?
qué falta en esos equipos??

gracias!!

Hola a todos,
este tema para mi no está cerrado... la macro de autoguardado está instalada en 1 fichero, a ese fichero sólo tienen acceso mediante una carpeta con autorización 10 personas.
A su vez, éstas personas acceden con una clave dentro del Excel, que les redirecciona a cada una a una tabla personal.
Cuando se guarda el Backup, en 3 de las 10 personas falla siempre (se guarda el backup) pero Excel se reinicia en modo fallo...
no sé por qué falla en esos 3 equipos!!!

gracias chicos, seguís siendo los mejores!