Good luck on your file recovery.
you might want to create a "Backup" folder in the folder your file is in and add this to your File's ThisWorkbook Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Me.SaveCopyAs (Me.Path & "\Backup\" & CDbl(Now) & "- " & Me.Name)
End Sub
The "CDbl(Now)" insures that all backups have a unique Name and that they will be listed in Windows Explorer in chronological order.
You can change "Me.Path & "\Backup"" to any valid path.
It's possible that you ant to save backups of many files in the same folder. In Excel, this same code will work for all workbooks of any type. You will need to edit it for different applications.
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Dim myPath As String
Dim myName As String
Dim myExt As String
Dim Dot As Long
With Me
myPath = "C:\Archive\" 'Edit to suit. Note trailing backslash
Dot = InStrRev(.Name)
myName = Mid(.Name, 1, Dot - 1)
myExt = Mid(.Name, Dot)
End With
Me.SaveCopyAs (myPath & myName & " - " & CDbl(Now) & myExt)
End Sub
That will display in Windows Explorer in Name order, then in chronological order...ie
MyWorkbookName - 123456.78912345.xlsm
MyWorkbookName - 123456.79012345.xlsm
MyWorkbookName - 123457.78912345.xlsmNyWorkbookName - 123456.78912345.xlsm
NyWorkbookName - 123456.79012345.xlsm
NyWorkbookName - 123457.78912345.xlsm