Workbook.CreateBackup (Excel)

True si se crea una copia de seguridad al guardar el archivo. Boolean de solo lectura.

Dim booCreateBackup As Boolean
booCreateBackup = ActiveWorkbook.CreateBackup