Hi Garry, 针对你遇到的这个受保护视图和VBA命名单元格的问题，我来帮你梳理下可行的解决思路：

先明确下你的问题核心 #

• 你通过OBIP生成的Excel 97-2003格式（.xls）报表自带VBA宏，宏原本在Workbook_Open事件中执行隐藏、自动调整操作，依赖命名单元格MyNamedcell
• 受保护视图的默认机制导致两个问题：
  • 启用编辑前，Workbook_Open完全不触发
  • 手动点击“启用编辑”后，宏执行时会报错Application-defined or object-defined error，定位到If [MyNamedcell] = "1" Then这行——本质是此时工作簿的命名单元格还未完成加载，宏找不到目标引用
• 你尝试用VBA自动触发受保护视图编辑的代码失败，报错Editing has been blocked for this file，这是Office安全策略的硬性限制，这个方法本身就行不通，后面会解释原因

问题根源分析 #

1. 受保护视图的事件逻辑：受保护视图下Excel会隔离文件，Workbook_Open这类核心事件不会触发；手动启用编辑后，Excel会重新初始化工作簿，但命名范围、单元格数据的加载会滞后于Workbook_Open的执行时机，导致宏调用时引用失效
2. 自动编辑代码的限制：Office为了安全，禁止VBA自动触发受保护视图的编辑操作——这个操作必须由用户手动完成，所以你写的ProtectedViewWindow.Edit()代码必然会报错，不用再尝试这个方向

具体解决方案 #

方案1：调整宏的执行时机（最推荐） #

把宏从Workbook_Open移到Workbook_Activate事件，因为启用编辑后工作簿会触发激活事件，此时命名单元格已经完全加载：

1. 打开报表文件，按Alt+F11进入VBA编辑器
2. 找到ThisWorkbook模块，替换原有代码为：

Private Sub Workbook_Activate()
    ' 用静态变量避免宏重复触发（比如切换到其他工作簿再切回来）
    Static hasExecuted As Boolean
    If hasExecuted Then Exit Sub
    
    ' 明确引用命名单元格，避免简写的作用域问题
    Dim targetCell As Range
    On Error Resume Next
    Set targetCell = ThisWorkbook.Names("MyNamedcell").RefersToRange
    On Error GoTo 0
    
    If Not targetCell Is Nothing Then
        If targetCell.Value = "1" Then
            ' 这里放入你原来的隐藏、自动调整操作代码
        End If
    End If
    
    hasExecuted = True
End Sub

方案2：配置受信任位置/数字签名（从源头避免受保护视图） #

如果这是内部使用的报表，可以从安全策略层面解决：

• 添加受信任位置：让用户打开Excel选项 → 信任中心 → 信任中心设置 → 受信任位置，把报表下载后的保存路径（或你的本地网站地址）加入受信任列表，这样文件下载后不会进入受保护视图
• 给宏添加数字签名：如果有企业证书，给你的VBA宏添加数字签名，Excel会信任已签名的宏，启用编辑后不会出现加载延迟问题

方案3：延迟宏执行（备选） #

如果必须保留Workbook_Open事件，可以添加延迟等待工作簿加载完成，再执行逻辑：

Private Sub Workbook_Open()
    ' 等待2秒给Excel足够时间加载命名单元格（时间可根据实际调整）
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 检查命名单元格是否存在后再执行
    Dim nm As Name
    On Error Resume Next
    Set nm = ThisWorkbook.Names("MyNamedcell")
    On Error GoTo 0
    
    If Not nm Is Nothing Then
        If nm.RefersToRange.Value = "1" Then
            ' 你的操作代码
        End If
    End If
End Sub

最后补充 #

不要全局关闭受保护视图，确实会带来安全风险，优先用方案1或方案2解决问题，这两个方案既能避免用户报错，又能保持Excel的安全机制。

备注：内容来源于stack exchange，提问作者Garry Gorn