将打开的Access数据库复制到存档文件夹中

Question

每隔x天，我必须通过将大量数据库复制/粘贴到共享网络上的存档文件夹中来“存档”大量数据库。该任务是最近分配给我的，并且上一个工作组是在一个小时的时间内（至少）人工完成此任务的。我已经对其进行了自动化，但是当我的代码试图复制当前在其他地方打开的数据库时，却陷入了困境。

我在Excel工作簿中弹出了一些动态文件路径，并使用以下代码自动执行了此任务：

Sub archive()
    'On Error Resume Next
    Dim i As Integer

    For i = 2 To 56
        FileCopy Sheets("Sheet2").Cells(i, 1), Sheets("Sheet2").Cells(i, 2)
    Next i 
End Sub

我知道它并不像它看起来的那么漂亮，但这不是我的问题。我的问题是，在任何给定时间，我需要复制的几十个数据库实例中至少有多个用户，并且Windows显然不允许通过VBA复制打开的文件（？）。不过，我可以转到指定的文件夹并手动执行操作，这样看起来会更安全。

无论如何，除了我在运行宏时手动复制打开的数据库之外，这里还有什么好的解决方案？我可以以某种方式强制复制吗？