如何从 Excel vba 以编辑模式在 SharePoint 上打开启用宏的 Excel 文件？

Question

我在 SharePoint 上有一个启用宏的 Excel 文件，当用户从 SharePoint 打开它时，该文件会以编程方式打开同一 SharePoint 上另一个启用宏的 Excel 文件。 vba 宏打开的文件需要编辑，并且必须可以被多个用户同时编辑。 但是我什至无法在编辑模式下打开它。 使用 Office 365

我试过 << ActiveWorkbook.LockServerFile >> 但总是收到错误消息 << Run-time error 1004: Method 'LockServer' of object'_Workbook' failed >>。

我在下面显示的代码位于由用户手动打开并自动打开其他 Excel 文件的 Excel 文件中。 打开时的另一个 Excel 文件工作正常（如果我删除 LockServerFile 命令），所有宏都可以正常工作，但它以只读方式打开，无法保存更改。 同样，此文件应可由多个用户同时编辑。

' 此代码位于“ThisWorkbook”选项卡中

子工作簿_open()

Set DB = Workbooks.Open(DBname, 3, False, , , , True)

ActiveWorkbook.LockServerFile '这是崩溃的地方

'更多代码...

结束子

' 注意：DB 是在模块中声明的

Public DB 作为工作簿 Public Const DBname As String = " https://ledvance365.sharepoint.com ... .xlsm"

Answer 1

看起来<< ActiveWorkbook.LockServerFile >>无法正常工作，因为SharePoint设置不在“默认情况下在客户端应用程序中打开文档”

但是一旦我让SharePoint所有者将SharePoint设置更改为“默认情况下在客户端应用程序中打开文档”，<< ActiveWorkbook.LockServerFile >>命令就起作用了。

Answer 2

也许检查以下链接以检查文件是否已被锁定。 https://www.mrexcel.com/forum/excel-questions/906983-vba-support-checking-if-file-locked-sharepoint.html

通常，如果在设置对象时使用对象，它也会有所帮助。

Dim DB as Workbook
Set DB = Workbooks.Open(filename:=DBname, editable:=True)
DB.LockServerFile

Answer 3

我有一个类似的问题。 代码在您突出显示的同一点崩溃。

ActiveWorkbook.LockServerFile

当文档已经可编辑时似乎失败。

On Error Resume Next
    ActiveWorkbook.LockServerFile

修复了我遇到的问题，因为当文件已经可编辑时代码将继续运行，并且如果文件以前不是可编辑的，则类似地使文件可编辑。