我有一个简单的问题，但我搜索过这个并找不到任何有用的主题..
我正在开发一个 VBScript，它打开一个 Excel 文件并修改其中的一些内容..所以我使用以下代码：
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = False
objXLApp.DisplayAlerts = False
Set objXLWb = objXLApp.Workbooks.Open(FilePath)
现在，我想要做的是使用锁定文件并防止用户在脚本打开文件时打开 Excel 文件的方式（直到文件关闭）。
Update:
我认为问题在某种程度上与 Excel 实例有关，我尝试执行以下操作（当文件由脚本打开时）：
- When I manually打开文件（当它由脚本打开时）它们都成为单个实例。
- 当我打开任何其他 Excel 文件时，它们都是also变成单例！！！并且原始文件（由脚本打开）变得可见！
现在这很奇怪，因为我正在使用CreateObject("Excel.Application")并不是GetObject(, "Excel.Application")
有注册表键值HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\command在 Win 7 Excel 2010 上，我使用默认值"C:\Program Files\Microsoft Office\Office14\EXCEL.EXE" /dde。命令行/dde开关启用 DDE（动态数据交换机制 - 一种古老的 Win 3.0 进程间通信方法），强制 Excel 在单个实例中启动。我尝试删除该开关并打开工作簿，但无济于事。顺便说一句，如果您没有编辑注册表的权限，或者您打算将脚本分发给没有权限的人，那么这不是一种方法。也曾尝试过这个答案 https://superuser.com/a/21604/367122，但它不适用于 Win 7 Office 2010。
我测试过test.xlsm启用 DDE 的文件。当用户打开文件时，实际上它只是在现有实例中重新打开以使其可见。如果脚本已进行任何更改，Excel 会发出警报：
无论如何，都为用户提供了写访问权限。之后，当脚本保存文件时，会出现另一个警报：
不久前，我创建了一个与 Excel 应用程序一起使用的脚本，并在 Win 7 Excel 2010 中遇到了与您所描述的相同的问题。我注意到，如果有多个使用以下命令创建的 Excel 应用程序实例CreateObject()在脚本中，用户打开的 Excel 文件始终使用第一个创建的实例。我通过创建两个不可见的 Excel 应用程序实例（假设为虚拟实例和目标实例）解决了该问题。脚本的算法概述如下：
- 首先创建虚拟实例，无需添加工作簿。之后，虚拟实例会暴露一个 Excel 文件，供用户在其中打开。
- 创建目标实例。
- 退出虚拟实例。
- 打开目标工作簿，修改并保存。
- 退出目标实例。
考虑下面的代码，它说明了实现您所需的可能方法：
' target file path
sPath = "C:\Users\DELL\Desktop\test.xlsm"
' create dummy instance
Set oExcelAppDummy = CreateObject("Excel.Application")
' create target instance
Set oExcelApp = CreateObject("Excel.Application")
' quit dummy instance
oExcelAppDummy.Quit
' open target workbook
With oExcelApp
.Visible = False
.DisplayAlerts = False
Set oWB = .Workbooks.Open(sPath)
End With
' make some changes and save
Set oWS = oWB.Sheets(1)
oWS.Cells(1, 1).Value = Now()
oWB.Save
' give additional time for test
MsgBox "Try to open test.xlsm, OK to end the script"
' close target workbook
oWB.Close
' quit target instance
oExcelApp.Quit
尝试打开该文件，您将获得所需的输出：
以及脚本结束后的通知：
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
