如何在Excel VBA中实现打开文件自动弹出到期告警？Excel2007不触发怎么办

你遇到的现象本质是Excel 2007的默认宏安全机制完全拦截了不受信任来源文件的宏执行权限，Workbook_Open事件根本没有获得运行的机会，只有手动触发启用宏的流程后，代码才会被执行。

1. 配置Excel 2007的信任规则，放行目标文件 #

• 打开Excel 2007，点击左上角圆形Office按钮，选择「Excel 选项」
• 在左侧菜单选择「信任中心」，点击右侧的「信任中心设置」
• 先进入「宏设置」板块，确认选中禁用所有宏，并发出通知——不要选择“禁用所有宏，并且不通知”，否则连启用宏的提示都不会出现
• 再进入「受信任位置」板块，点击「添加新位置」，填入你存放这个宏文件的本地文件夹路径，勾选「同时信任此位置的子文件夹」；如果文件存在于局域网共享盘，需要额外勾选「允许网络上的受信任位置」，配置完成后保存设置

2. 修正宏代码的常见隐患，确保正常运行 #

就算宏权限已经放开，代码如果存在位置错误、逻辑报错，也不会正常弹出告警：

• 按Alt+F11打开VBA编辑器，确认Workbook_Open代码是写在ThisWorkbook模块下，而不是普通的标准模块、Sheet工作表模块里——位置写错的话，工作簿打开的事件不会匹配到这段代码
• 原代码存在几处容易触发报错的问题，修正后的版本如下：

Private Sub Workbook_Open()
    Dim i As Long, lastRow As Long

    ' 明确指定Sheet1的行数统计，避免默认引用活动工作表导致读错值
    lastRow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        ' 增加日期格式校验，防止非日期内容导致代码中断
        If IsDate(Sheet1.Cells(i, 4).Value) Then
            ' 明确指定单元格所属表，用&做字符串拼接，避免类型不匹配错误
            If DateDiff("d", Sheet1.Cells(i, 4).Value, Date) <= 90 Then
                MsgBox Sheet1.Cells(i, 2).Value & " is expiring!"
            End If
        End If
    Next
End Sub

3. 清除Windows层面的文件拦截标记 #

如果你是从邮件、聊天软件下载的这个宏文件，Windows会自动给文件附加互联网来源标记，就算配置了Excel信任规则也会被拦截：

• 找到目标Excel文件，右键选择「属性」
• 在「常规」标签的最底部，如果看到文件被阻止的提示，勾选「解除锁定」后点击确定，再重新打开文件即可

你需要打开VBA编辑器、重新打开文件、手动点启用宏才能触发代码的流程，不是正常的Workbook_Open触发逻辑：第一次打开文件时宏处于被禁用状态，事件根本不会执行；打开VBA编辑器的操作只是让Excel临时给当前文件放开了编辑权限，重新打开文件时才会临时跑一次宏代码，并不是自动触发的正常效果。

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