以只读方式打开写入模式

Question

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

Answer 1

找到答案

'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