求助：关闭UserForm时备份保存失效，仅Workbook可见时正常

核心问题 #

你的代码存在语法错误，且依赖ActiveWorkbook这类易出问题的对象引用，导致UserForm关闭时（尤其是Workbook处于隐藏状态下）备份逻辑失效。

先修正代码中的基础语法错误 #

原代码里的拼写/语法错误会直接导致代码无法执行：

• Privat → Private
• byvale → ByVal
• MsgBox "some text..." 缺少括号，正确写法为MsgBox("some text to inform the user")

优化备份逻辑（解决隐藏状态下失效问题） #

ActiveWorkbook在Workbook隐藏时无法正常激活，直接使用ThisWorkbook对象引用即可，无需激活。同时优化文件名生成逻辑，避免替换所有点号导致扩展名异常：

修正后的Workbook_BeforeSave事件

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If MsgBox("是否创建备份文件？", vbYesNo) = vbYes Then
        Save_Backup
    End If
End Sub

优化后的Save_Backup子程序

Public Sub Save_Backup()
    Dim fileName As String
    Dim wbSource As Workbook
    Dim backupFolderPath As String
    Dim fileExt As String
    
    ' 创建备份文件夹（忽略已存在的错误）
    On Error Resume Next
    backupFolderPath = ThisWorkbook.Path & "\BackUp"
    MkDir backupFolderPath
    On Error GoTo 0
    
    Set wbSource = ThisWorkbook
    
    ' 分离文件名和扩展名，避免替换所有点号
    fileExt = Right(wbSource.Name, Len(wbSource.Name) - InStrRev(wbSource.Name, "."))
    fileName = Left(wbSource.Name, InStrRev(wbSource.Name, ".") - 1) & "_" & Format(Now(), "ddmmyyyy_hhmmss_AMPM") & "." & fileExt
    
    ' 直接保存源文件+生成备份，无需激活
    wbSource.Save
    wbSource.SaveCopyAs FileName:=backupFolderPath & "\" & fileName
    
    Set wbSource = Nothing
End Sub

确保UserForm关闭时触发备份的正确方式 #

如果需要在UserForm关闭时自动触发保存（进而触发备份），在UserForm的QueryClose事件里主动调用保存：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 关闭UserForm时触发保存
    ThisWorkbook.Save
End Sub

关键优化点 #

• 移除ActiveWorkbook依赖：直接使用wbSource对象操作，避免Workbook隐藏时激活失败
• 修复文件名生成逻辑：只替换主文件名部分，保留原扩展名，避免生成错误格式的文件名
• 修正语法错误：确保代码能正常编译执行

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