Buenos días

Estoy intentando hacer copias automáticas de seguridad del libro de trabajo (libro1.slxm) cada vez que se cierra el libro.

Las copias se guardarán en la carpeta Bakup (que se encuentra en la misma ruta que el libro de trabajo), y deseo conservar sólo las tres últimas copias mas recientes.

¿Me podrían ayudar?

Un saludo y gracias anticipadas

Editado el el 11 de marzo6 años por AndrMax
error gramatical

Pon esta macro en Thisworkbook.

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim Copia1, Copia2, Copia3
Copia1 = ThisWorkbook.Path & "\Backup\1 " & ThisWorkbook.Name
Copia2 = ThisWorkbook.Path & "\Backup\2 " & ThisWorkbook.Name
Copia3 = ThisWorkbook.Path & "\Backup\3 " & ThisWorkbook.Name
Kill Copia3
Name Copia2 As Copia3
Name Copia1 As Copia2
ActiveWorkbook.SaveCopyAs Copia1
End Sub