G'day

I would be inclined to remove the Save button from the menu bar/ribbon and
replace it with a Save cmdbtn using code to save to a specific location and
file extension.

You could have multiple saving of the same file, saved with a time
extension, this way each time the file is saved, you can track the
differences between each sheet.

Try this, it should do the trick (not tested)

Dim Sourcewb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Set Sourcewb = ActiveWorkbook TempFilePath =
C:\Where-Ever-You-Want-It TempFileName = Sourcewb.Name & " " &
Format(Now, "dd-mmm-yy h-mm-ss") With Destwb
.SaveAs TempFilePath & TempFileName
On Error Resume Next
On Error GoTo 0
.Close SaveChanges:=False
End WithHTHRegardsMark.