通过VB6以只读方式打开Excel工作簿

Question

我有一个用VB6编写的应用程序,它将数据写入电子表格.我正在使用MS Excel 11.0对象库来创建Excel实例并打开本书:

Dim xlApp As Excel.Application, remoteBook As Workbook
Set xlApp = New Excel.Application
Set remoteBook = xlApp.Workbooks.Open(sheetName)

除了写入工作簿"sheetName"之外,该程序还允许用户启动工作簿以查看累积结果.

有可能,无论多么微小,用户可以打开工作簿以查看结果,而其他人正在尝试写入结果.我想让用户写入工作表优先级.有没有办法可以启动工作表以便以只读方式查看？excel应用程序对象有一个只读属性,但它(当然)是只读的.

即使有人不小心将文件打开到桌面,我如何设置程序将数据写入工作簿？

Answer 1

只需这样做:

Set remoteBook = xlApp.Workbooks.Open( sheetName, , true)

哪里是真的是否打开为只读.ReadOnly是此方法的第三个参数.