以写模式打开以只读模式关闭

Open as Write-mode close as Read-only

我正在 MS Project 中编写 VBA，需要打开一个 Excel 文件来保存一些东西。此 Excel 文件可能正被其他人使用。所以我想将文件保存为只读文件，当它通过 VBA 打开时更改为写入模式。

找到答案

'Before opening the book I set to vbNormal
    Set xlapp = CreateObject("Excel.Application")
    SetAttr supportDoc_loc & Dir(master_statusGlobal_loc), vbNormal
    Set xlbook = xlapp.Workbooks.Open(master_statusGlobal_loc)

'After the changes I close the book as vbReadOnly
    xlbook.Close SaveChanges:=True
    SetAttr supportDoc_loc & Dir(master_statusGlobal_loc), vbReadOnly