Hello，大家好，今天跟大家分享下我们如何在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】格式。这个方法也有一定的缺陷，现在很多公司在安全策略上都已经禁止电脑运行宏代码，如果存在这样的情况，文件有打不开的可能性。

二、条件格式法

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

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

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

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

三、设置保护

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

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