Saving a Backup Copy of a Workbook (E033.xls)

[Dave T]

Hello Derek,

I Have been trying to get this to work by using both the code from the book and pasting it in an Excel file and also the file from the download link.
The downloaded Excel file does not have the 'Path' options commented out as is shown in the book, but this is easily fixed.

I have not been able to get either of them to work, and have spent considerable time trying, so I have decided to just give up with these and keep working with what I am currently using (last two code examples in an earlier message).

Thanks for all the suggestions you have offered, I do appreciate your help.

Regards,
Dave T

 

[Dave T]

Hello All,

I have changed some of the code within ThisWorkbook from the original code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
                                Cancel As Boolean)
 If SaveAsUI Then
    ' Only save backup if the workbook is being saved from Excel
    SaveBackup Me
  End If
End Sub

To this and it now works a treat:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'http://www.mrexcel.com/forum/showthread.php?t=493991
  Application.EnableEvents = False
  Call SaveBackup
  Application.EnableEvents = True
End Sub

Regards,
Dave T