excel - 通过 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应用程序对象有一个只读属性，但它(当然)是只读的。

即使有人不小心将文件留在办公 table 上，我如何设置程序将数据写入工作簿？

Answer 1

只需这样做:

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

其中 true 是是否以只读方式打开。 ReadOnly 是该方法的第三个参数。