大家好，今天跟大家分享下我们如何在Excel中实现，数据到期后自动消失的效果，在这里跟大家分享2种解决方法，一种是利用vba代码，另一种是利用条件格式，它们的操作也都非常简单，对照操作都可以设置成功，下面就让我们来学习下吧
一、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临期食品管理表怎么实现过期划掉临期变色? 到期日期自动变色技巧
青云诀 2
奇迹：暗黑深渊
贪玩原始传奇
至尊蓝月
公益传奇
爆装传奇
冒险王2
至尊之刃