FileCopy дает отказано в разрешении, если файл открыт. Как скопировать файл, который используется?

Question

Я запускаю этот код в течение четырех месяцев ежедневно каждые два часа.

Этим утром у меня была ошибка "отказано в разрешении". Когда пользователь закрыл файл, VBA запустился.

Есть ли способ скопировать файл, даже если кто-то его использует?

Public Sub SaveCL()
    Dim SourcePath As String
    Dim DestinationPath As String

    SourcePath = "\\CCX.ABC.com\Reporting\CL.xlsx"
    DestinationPath = "C:\Users\Public\Sources\CL1.xlsx"

    FileCopy SourcePath, DestinationPath

End Sub

Answer 1

Я попробую метод сценариев - увидел комментарий в ссылке следующим образом: «По сравнению с другим, простым решением с FileCopy, это решение имеет то преимущество, что исходный файл также можно копировать во время его открытия ( например, MS Access), то есть когда он «только для чтения». " Спасибо:)