关于保留副本文件数据并删除原文件数据的VBA实现方案咨询及ActiveWorkbook.Saved/Save功能疑问

嘿，我来帮你把这个问题理清楚，顺便把你要的功能和相关知识点讲明白！

先搞懂 ActiveWorkbook.Saved 和 ActiveWorkbook.Save #

这俩是VBA里操作工作簿保存的核心属性/方法，我给你拆解开：

• ActiveWorkbook.Saved：这是个布尔值属性，用来判断当前激活的工作簿自上次保存后有没有被修改过。如果没动过，它返回True；如果改了内容（比如编辑单元格、改格式），就返回False。
• ActiveWorkbook.Save：这是个执行保存的方法，运行它会把当前工作簿的所有修改直接写入原文件——简单说就是点Excel界面上的“保存”按钮的代码版。

你的现有代码逻辑问题 #

看你写的Workbook_BeforeClose，其实和你“保留副本数据、删除原文件数据”的需求不太匹配：

• 如果工作簿已经保存过（Saved=True），你又执行了Save，这相当于多存了一遍原文件，根本没生成副本；
• 如果工作簿没保存过（Saved=False），你只调用了清空单元格的logFormState，但没保存原文件——这时候关闭Excel会弹出是否保存的提示，你不点保存的话，原文件还是原来的数据，完全没实现“删原文件数据”的效果。

实现需求的替代方案 #

要实现“关闭时保留副本数据、清空原文件指定内容”，核心步骤是：先备份原文件到副本，再清空原文件数据，最后保存原文件。下面给你两种靠谱的写法：

方案1：自动生成副本并清空原文件

这种写法会在原文件同目录下生成带_copy后缀的副本，然后清空原文件的指定单元格：

Public Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim originalWB As Workbook
    Dim copyPath As String
    
    ' 用ThisWorkbook代替ActiveWorkbook更可靠，它指的是当前代码所在的工作簿
    Set originalWB = ThisWorkbook
    ' 生成副本路径：比如原文件是"跟踪表.xlsm"，副本就是"跟踪表_copy.xlsm"
    copyPath = Replace(originalWB.FullName, ".xlsm", "_copy.xlsm")
    
    ' 1. 保存副本：把原工作簿的所有数据完整备份到副本
    originalWB.SaveCopyAs copyPath
    
    ' 2. 清空原工作簿的指定数据（就是你写的logFormState）
    Call logFormState
    
    ' 3. 保存原工作簿的修改（也就是清空后的状态）
    originalWB.Save
End Sub

Sub logFormState()
    ' 简化写法，批量清空需要的单元格
    Sheets("1 - Feuille de Suivi ").Range("C5:C6").ClearContents
    ' 继续添加你需要清空的其他单元格/区域，比如：
    ' Sheets("1 - Feuille de Suivi ").Range("D10:D20").ClearContents
End Sub

方案2：处理已存在的副本（可选）

如果担心副本已经存在，可以加个判断，要么提示用户是否覆盖，要么直接替换旧副本：

Public Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim originalWB As Workbook
    Dim copyPath As String
    
    Set originalWB = ThisWorkbook
    copyPath = Replace(originalWB.FullName, ".xlsm", "_copy.xlsm")
    
    ' 检查副本是否存在
    If Dir(copyPath) <> "" Then
        ' 可选：弹出提示让用户选择是否覆盖
        ' If MsgBox("副本已存在，是否覆盖？", vbYesNo, "提示") = vbNo Then
        '     Cancel = True ' 取消关闭操作
        '     Exit Sub
        ' End If
        Kill copyPath ' 删除旧副本，准备覆盖
    End If
    
    originalWB.SaveCopyAs copyPath
    Call logFormState
    originalWB.Save
End Sub

小提示 #

尽量用ThisWorkbook代替ActiveWorkbook，因为ActiveWorkbook指的是当前窗口激活的工作簿，如果同时打开多个文件，很容易搞混；而ThisWorkbook永远是你写代码的那个工作簿，更稳定。

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