Automatically create a backup copy

[gheyman]

is there a way to automatically make a backup copy of a file as soon as someone opens it? We have a very important file that is shared and used by many. Sometime people save over it or accidentally drag it to a folder...... all kinds of things happen

I want to save a copy of the file to a certain folder every time someone opens it so I always have a backup.

 

[AC PORTA VIA]

Put this in ThisWoorkbook

Private Sub Workbook_Open()

Dim sFileName As String
    Dim sDateTime As String
    With ThisWorkbook
        sDateTime = " (" & Format(Now, "mm-dd-yyyy - hh_mm") & ").xlsm"
        sFileName = Application.WorksheetFunction.Substitute _
          (.FullName, ".xlsm", sDateTime)
        .SaveCopyAs "C:\Users\XXXXX\Desktop\ FOLDERNAME\FILE NAME- " & Format(Now, "mm-dd-yyyy  h-mm-ss") & ".xlsm"
End With

End Sub

 

[gheyman]

Thank you. Worked perfectly!

 

[AC PORTA VIA]

You are welcome