专治同事的拖延症! Excel文件到期自动销毁的技巧

大家好，今天跟大家分享下我们如何在Excel中实现，数据到期后自动消失的效果，在这里跟大家分享2种解决方法，一种是利用vba代码，另一种是利用条件格式，它们的操作也都非常简单，对照操作都可以设置成功，下面就让我们来学习下吧

微软Office LTSC 2021专业增强版 简体中文批量许可版 2024年09月更新

• 类型：办公软件
• 大小：2.2GB
• 语言：简体中文
• 时间：2024-09-12

查看详情

一、VBA代码

首先我们需要复制下方的代码，然后点击【开发工具】找到【Visual Basic】在跳出的界面中我们双击最下方的【ThisWorkbook】，然后将代码直接粘贴在右侧的空白区域中，然后将这个界面关闭掉即可，至此就设置完毕了.

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Date = "2021/9/10" Then Sheets("sheet2").Delete
Application.DisplayAlerts = Tru
End Sub

这个代码的作用是将于2021年9月10号删除sheet2这个工作表。需要注意的是sheet2是VB界面中的名称，也就是工作表最原始的名称。如下图，我们可以看到Sheet2（销毁数据），所以在这里才会在Sheets("sheet2").Delete这行代码中出现sheet2，而不是【销毁数据】这个工作表名称。至于数据何时消失，我们只需要更改2021/9/10这个日期的值即可。

最后需要注意的是我们需要将文件另存为可以保存宏代码的格式，一般是另存为【xlsm】格式。这个方法也有一定的缺陷，现在很多公司在安全策略上都已经禁止电脑运行宏，如果存在这样的情况，文件有打不开的可能性。

注意：下面这段代码比较适合Excel用户，默认支持VBA代码，打开文件会弹出文件还有多久到期，当文件到期时会给出弹出，整个Excel工作簿会被删掉。

• Private Sub Workbook_Open()
  ' 设置开始日期和有效期天数
  Dim startDate As Date
  Dim validDays As Integer
  ' 在这里设置开始日期和有效期（天数）
  startDate = #5/12/2025# ' 格式为#月/日/年#
  validDays = 30 ' 文件有效天数
  ' 计算到期日期
  Dim expiryDate As Date
  expiryDate = DateAdd("d", validDays, startDate)
  ' 获取当前日期
  Dim currentDate As Date
  currentDate = Date
  ' 计算剩余天数
  Dim daysRemaining As Integer
  daysRemaining = DateDiff("d", currentDate, expiryDate)
  ' 检查是否已过期
  If daysRemaining <= 0 Then
  ' 文件已过期，显示提示并安排删除文件
  MsgBox "此文件已过期，系统将自动删除该文件。", vbCritical, "文件已过期"
  ' 获取当前文件的完整路径
  Dim filePath As String
  filePath = ThisWorkbook.FullName
  ' 创建临时VBScript来删除文件
  CreateDeleteScript filePath
  ' 关闭当前工作簿
  ThisWorkbook.Saved = True ' 防止保存提示
  Application.DisplayAlerts = False ' 禁用警告
  ThisWorkbook.Close False
  ' 退出Excel
  Application.Quit
  Else
  ' 文件未过期，显示剩余天数
  MsgBox "此文件将在 " & daysRemaining & " 天后过期。" & vbCrLf & _
  "到期日期: " & Format(expiryDate, "yyyy年mm月dd日"), _
  vbInformation, "文件有效期提醒"
  End If
  End Sub
  ' 创建用于删除文件的VBScript
  Private Sub CreateDeleteScript(filePath As String)
  Dim scriptContent As String
  Dim scriptPath As String
  Dim fso As Object
  Dim scriptFile As Object
  ' VBScript内容 - 等待Excel关闭后删除文件
  scriptContent = "On Error Resume Next" & vbCrLf & _
  "Dim fso, wsh" & vbCrLf & _
  "Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf & _
  "Set wsh = CreateObject(""WScript.Shell"")" & vbCrLf & _
  "' 等待5秒确保Excel已关闭" & vbCrLf & _
  "WScript.Sleep 5000" & vbCrLf & _
  "' 尝试删除文件" & vbCrLf & _
  "If fso.FileExists(""" & filePath & """) Then" & vbCrLf & _
  " fso.DeleteFile """ & filePath & """, True" & vbCrLf & _
  "End If" & vbCrLf & _
  "' 删除自身" & vbCrLf & _
  "fso.DeleteFile WScript.ScriptFullName, True" & vbCrLf & _
  "Set fso = Nothing" & vbCrLf & _
  "Set wsh = Nothing"
  ' 获取临时文件夹路径
  Set fso = CreateObject("Scripting.FileSystemObject")
  scriptPath = fso.GetSpecialFolder(2) & "\DeleteExcelFile.vbs"
  ' 创建VBScript文件
  Set scriptFile = fso.CreateTextFile(scriptPath, True)
  scriptFile.Write scriptContent
  scriptFile.Close
  ' 执行VBScript
  Shell "wscript.exe """ & scriptPath & """", vbHide
  ' 清理对象
  Set scriptFile = Nothing
  Set fso = Nothing
  End Sub

二、条件格式法

条件格式这个方法相对于VBA，它并不是将数据删除了，而是为数据设置了格式，将其看不到罢了，因为数据还存在，所以我们需要对单工作表设置保护，防止数据到期后还能继续使用。

excelxian'din件格式的特点是：当条件成立就运行我们设置的格式，条件不成立就不做任何更改。所以条件格式能否成功的关键就是条件如何设置。

首先我们选择需要设置的数据区域。然后找到【条件格式】选择【新建规则】点击【使用公式确定要设置的格式】随后在下方将公式设置为：=TODAY()>44449，然后点击【格式】在【数字】中找到【自定义】将类型设置为;;;需要注意的是这3个分号，需要在英文输入法下输入。

在这里today函数的作用是获取当天的日期，44449就是2021/9/10对应的数值，这个函数的意思就是：今天的时间大于2021年9月10号就代表条件成立，运行我们设置的格式。在这里我们将格式设置为了3个分号，这样的话单元格就会不显示任何内容，但是这些数据其实还是存在的，点击数据的时候，在编辑栏是可以看到数据的，所以紧接着我们就需要为表格设置保护了。

三、设置保护

这个就比较简单了，我们只需要选择点击点击【审阅】找到【工作表保护】将【选定锁定单元格】与【选定解除锁定的单元格】的对勾去掉，然后设置一个密码，这样的话就无法选中单元格，无法选中单元格也就不能在编辑栏中看到数据了，同样也无法复制数据了，至此设置完毕。

以上就是今天分享的2种方法，你更喜欢使用那一种方法呢？

推荐阅读：Excel临期食品管理表怎么实现过期划掉临期变色? 到期日期自动变色技巧

最新评论