Runtime 1004：打开需启用编辑的Excel文件时OnTime _Application报错问题

错误根因 #

当你打开需要启用编辑的工作簿时，Excel会先进入受保护视图沙箱模式，VBA运行上下文会被临时挂起，此时直接调用Application.OnTime的注册/注销逻辑无法和VBA宿主通信，就会触发1004错误。你之前修改宏安全设置的本质是关闭了受保护视图逻辑，属于绕开问题的方案，不适合直接分发给普通用户使用。

可落地解决方案 #

1. 封装OnTime调用，增加前置状态检查 #

先把原来的两行OnTime逻辑封装成带错误捕获和状态判断的公共方法，避免直接调用触发报错：

' 全局变量，存储定时器下次触发时间
Public NextRun As Date

' 注册定时器封装
Sub RegisterTimer()
    On Error Resume Next
    ' 仅当当前无受保护视图窗口时执行注册
    If Application.ProtectViewWindows.Count = 0 Then
        Application.OnTime NextRun, "myTimer"
    End If
    On Error GoTo 0
End Sub

' 注销定时器封装
Sub UnregisterTimer()
    On Error Resume Next
    If Application.ProtectViewWindows.Count = 0 Then
        Application.OnTime NextRun, "myTimer", , False
    End If
    On Error GoTo 0
End Sub

2. 监听应用级事件，自动暂停/恢复定时器 #

在ThisWorkbook模块中添加全局事件监听，当检测到受保护视图激活时自动暂停定时器，退出受保护视图后自动恢复：

Dim WithEvents App As Application

Private Sub Workbook_Open()
    Set App = Application
End Sub

' 监听工作簿激活事件
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
    If Application.ProtectViewWindows.Count > 0 Then
        ' 进入受保护视图，注销定时器避免报错
        Call UnregisterTimer
    Else
        ' 退出受保护视图，重新注册定时器恢复运行
        NextRun = Now + TimeValue("00:00:01") ' 替换为你原本的定时器间隔
        Call RegisterTimer
    End If
End Sub

3. 定时器逻辑增加错误兜底 #

在你的myTimer过程开头添加错误捕获，遇到异常时静默重试，避免程序直接崩溃：

Sub myTimer()
    On Error GoTo ErrHandler
    
    ' 此处填写你原本的定时器业务逻辑
    
    ' 正常执行完成后注册下一次触发
    NextRun = Now + TimeValue("00:00:01") ' 替换为你原本的定时器间隔
    Call RegisterTimer
    Exit Sub
    
ErrHandler:
    ' 捕获1004错误，1秒后重试注册定时器
    If Err.Number = 1004 Then
        NextRun = Now + TimeValue("00:00:01")
        Application.OnTime NextRun, "myTimer"
    End If
End Sub

额外注意 #

如果你的无模式用户窗体有关闭按钮，需要在窗体的UserForm_Terminate事件中调用UnregisterTimer，避免定时器进程残留。

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