寻求特定日期后自动清空Excel工作簿内容的VBA代码方案

核心代码（需粘贴到ThisWorkbook模块） #

这段代码会在工作簿每次打开时检查当前日期，若超过你指定的截止日期，就自动清空目标工作表的所有数据。你可以根据需求调整截止日期和目标工作表名称：

Private Sub Workbook_Open()
    ' 替换为你设定的截止日期（格式：年,月,日）
    Dim cutoffDate As Date
    cutoffDate = DateSerial(2024, 12, 31)
    
    ' 替换为你要保护的工作表名称，多个表可以用逗号分隔，比如Sheet1,Sheet2
    Dim targetSheets As Variant
    targetSheets = Array("营销分析", "成本数据")
    
    Dim ws As Worksheet
    Dim sheetName As Variant
    
    ' 检查当前日期是否超过截止日期
    If Date > cutoffDate Then
        ' 禁用屏幕刷新，避免操作过程可见
        Application.ScreenUpdating = False
        
        ' 遍历目标工作表并清空内容
        For Each sheetName In targetSheets
            On Error Resume Next ' 忽略不存在的工作表
            Set ws = ThisWorkbook.Worksheets(sheetName)
            If Not ws Is Nothing Then
                ws.Cells.ClearContents ' 仅清空内容，保留格式；要连格式一起清用ws.Cells.Clear
                Set ws = Nothing
            End If
            On Error GoTo 0
        Next sheetName
        
        ' 恢复屏幕刷新
        Application.ScreenUpdating = True
        
        ' 可选：弹出提示告知内容已清空
        MsgBox "文件已超过截止日期，敏感数据已自动清空", vbInformation
    End If
End Sub

使用步骤 #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 在左侧项目窗口找到ThisWorkbook，双击打开它的代码窗口
3. 把上面的代码粘贴进去，修改cutoffDate为你的截止日期，修改targetSheets为你要保护的工作表名称
4. 按Ctrl + S保存文件，注意要保存为启用宏的工作簿格式（.xlsm）——如果是Sharepoint存储，确认平台支持宏文件

关键注意事项 #

• 备份数据：在测试代码前，务必备份你的原始数据，避免误操作导致数据丢失
• 宏启用问题：Excel默认会禁用宏，你需要确保打开文件时启用宏，否则代码不会执行；Sharepoint环境下可能需要额外设置信任中心，允许来自该文件的宏
• 取消触发的方法：如果在截止日期前想取消自动清空，只需打开VBA编辑器，找到ThisWorkbook里的这段代码，删除或注释掉即可；临时测试的话，可以把系统日期改到截止日期之前再打开文件
• 仅清空个人数据：代码里的targetSheets一定要准确指定你的个人工作表，避免误删其他无关数据

安全提醒 #

• 这段代码仅在工作簿打开时触发，不会在后台偷偷运行；所有操作都是可见的（除了屏幕刷新被禁用的短暂时间）
• 不要将截止日期设置错误，一旦超过日期，数据清空后无法恢复（除非有备份）
• 因为你的文件存于本地和Sharepoint，确保两处的文件都更新了这段代码，避免遗漏

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