Auto save file copy with unique filename

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Several users access an Excel file. I need Excel to save a copy of the file
with a unique filename when it saves the original file under the original
name.
 
Hi Allen

You can use the before save event in the thisworkbook module to save a copy of the file with a date/time stamp

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs ThisWorkbook.Name _
& " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
End Sub

See
http://www.cpearson.com/excel/events.htm
 
Back
Top