如何用GetObject()打开受保护Excel文件并屏蔽保护对话框？

结论：GetObject()本身没有直接参数支持屏蔽保护对话框或指定只读模式，它的核心作用是获取已打开的对象实例，或启动应用打开文件，但没法像Workbook.Open那样设置精细化的打开参数。

你的现有代码Set sh = GetObject("C:\MyData.xlsx").Worksheets("MySheet")确实能在后台打开文件，但如果文件带有打开密码、只读推荐或工作表保护，依然会弹出对应的对话框，且默认不是只读模式。

要实现「后台打开、只读、屏蔽保护对话框」的需求，推荐用以下方案：

方案：结合Excel实例+Workbook.Open参数 #

先通过GetObject获取后台Excel实例，再用该实例的Workbook.Open方法打开文件，既保留后台操作的优势，又能灵活设置参数：

Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim sh As Excel.Worksheet

' 获取已运行的Excel实例，没有则新建后台实例
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
    Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0

xlApp.Visible = False ' 保持Excel在后台不显示

' 用Workbook.Open设置关键参数
Set wb = xlApp.Workbooks.Open( _
    Filename:="C:\MyData.xlsx", _
    ReadOnly:=True, _
    IgnoreReadOnlyRecommended:=True, _
    Password:="你的文件打开密码", ' 有打开密码时才填
    WriteResPassword:="你的修改密码" ' 有修改密码时才填
)

Set sh = wb.Worksheets("MySheet")

' 这里写你的数据读取逻辑...

' 操作完成后清理资源
wb.Close SaveChanges:=False
xlApp.Quit
Set sh = Nothing
Set wb = Nothing
Set xlApp = Nothing

如果尝试用修改注册表临时屏蔽保护提示的方式，会影响所有Excel操作，风险较高，不推荐使用。

内容的提问来源于stack exchange，提问作者Roland Weghorn