备份共享数据库以驱动其他用户无法删除的地方

Question

我一直在尝试每次访问数据库时将共享驱动器上的数据库自动备份到其他驱动器。我把这段代码放在一起了。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 'Saves the current file to a backup folder and the default folder
 'Note that any backup is overwritten
     Application.DisplayAlerts = False
     ActiveWorkbook.SaveCopyAs Filename:="\\pdc2cif004.onelondon.tfl.local\vdm3_data1$\IanMartin\Desktop\Backup Files\" & _
             ActiveWorkbook.Name
     ActiveWorkbook.Save
     Application.DisplayAlerts = True
 End Sub

这是在工作表中保存之前。如果我访问数据库，该代码有效，但如果其他人访问数据库，则该代码无效。

我知道其他工作人员已经访问了数据库，但是在我的文件夹中没有创建备份文件。我正在尝试创建一个备份，该备份将被放置在驱动器中，其他人员无法意外找到该备份并将其错误删除。