Ошибка VBA 1004 - Ошибка метода ChangeFileAccess - файл на Sharepoint

Question

Я исправляю некоторый код, написанный коллегой, и я столкнулся с этим препятствием, когда документ Excel открывается из Sharepoint и запускается метод ChangeFileAccess, чтобы изменить его на чтение / запись. Сбой метода с кодом ошибки 1004. Файл открывается, поэтому все до этого момента работает. Я не понимаю, почему это не сработает, я надеюсь, что кто-то более знающий, чем я могу! Я удалил путь к файлу и имя документа для анонимности.
Я использую Office 365, код ниже:

Dim ObjFileA, ObjfileB As File
FilePathA = "filepath" & fileName
Set FSO = CreateObject("Scripting.FileSystemObject")
Set App = CreateObject("Excel.Application")

Set ObjFileA = FSO.GetFile(FilePathA)
Set wbA = Workbooks.Open(ObjFileA, False, False)

wbA.Activate
wbA.ChangeFileAccess (xlReadWrite)
Set wbA = Workbooks(fileName)

Answer 1

Ваш файл уже открыт для чтения-записи?

Я только что столкнулся с проблемой, аналогичной описанной вами (ошибка 1004 при изменении метода доступа, хотя в моем случае я пытался изменить доступ только для чтения для файла, который уже был доступен только для чтения.)

После некоторого тестирования я получаю ошибку каждый раз, когда пытаюсь вызвать wkbk.ChangeFileAccess, чтобы «изменить» тип доступа, чтобы он совпадал с текущим типом доступа.

Если вы обнаружите, что книга уже может быть для чтения-записи, я предлагаю изменить ее на

If wbA.ReadOnly then wbA.ChangeFileAccess (xlReadWrite)