VBA仅在保存时运行，另存为操作无法触发如何解决？

问题根因 #

你当前使用的Workbook_BeforeSave事件会在保存/另存为操作执行前触发，此时另存为操作还未完成，获取到的仍是旧文件名，所以看起来功能没有触发。直接使用Workbook_AfterSave出现保存提示，是因为你在该事件中修改了单元格内容，Excel会自动将文件标记为未保存状态，关闭时就会弹出提示。

调整后完整代码 #

所有代码需放在VBA编辑器的ThisWorkbook对象中：

' 模块级变量，标记是否为自动更新操作
Private DisableSavePrompt As Boolean

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    ' 仅在保存成功后执行更新
    If Not Success Then Exit Sub
    
    ' 关闭事件触发，避免循环调用
    Application.EnableEvents = False
    ' 标记为自动更新操作
    DisableSavePrompt = True
    
    ' 调用文件名更新函数
    Call Display_File_Name
    
    ' 标记文件已保存，避免弹出保存提示
    ThisWorkbook.Saved = True
    ' 恢复事件触发
    Application.EnableEvents = True
    DisableSavePrompt = False
End Sub

Function Display_File_Name()
    ' 直接指向当前代码所在工作簿，避免切换其他工作簿时出错
    Set OpenBook = ThisWorkbook
    
    Filename = OpenBook.Name
    ' 写入打印页文件名
    OpenBook.Worksheets(4).Range("A2") = Filename
    ' 查找第6个工作表B列最后一行有数据的行号
    LR = OpenBook.Worksheets(6).Columns("B").Find("*", _
        SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row
    ' 批量写入文件名
    OpenBook.Worksheets(6).Range("A2:A" & LR) = Filename
End Function

关键调整说明 #

• 改用Workbook_AfterSave事件：该事件在保存、另存为操作完全完成后触发，此时获取的文件名是最新的，两种保存场景都能覆盖
• 新增模块级标记变量+关闭事件触发：避免更新单元格时触发其他事件导致循环运行
• 操作完成后主动设置ThisWorkbook.Saved = True：告知Excel当前内容已处于保存状态，关闭时不会再弹出保存提示
• 优化ActiveWorkbook为ThisWorkbook：避免切换到其他打开的工作簿时，文件名被错误写入其他文件

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