Excel到期自动销毁，同事都看呆了~
文摘
教育
2024-09-29 20:36
河南
Hello，大家好，今天跟大家分享下我们如何在Excel中实现，数据到期后自动消失的效果，一种是利用vba代码，另一种是利用条件格式，下面就让我们来学习下吧首先我们需要复制下方的代码，然后点击【开发工具】找到【Visual Basic】在跳出的界面中我们双击最下方的【ThisWorkbook】，然后将代码直接粘贴在右侧的空白区域中，然后将这个界面关闭掉即可，至此就设置完毕了Private Sub Workbook_Open()Application.DisplayAlerts = FalseIf Date = "2021/9/10" Then Sheets("sheet2").DeleteApplication.DisplayAlerts = TruEnd 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种方法，你更喜欢使用那一种方法呢？我是Excel从零到一，关注我，持续分享更多Excel技巧
想要学Excel，可以点击超链接，了解下我的课程，带你成为Excel高手提高工作效率，仅售49.9
Excel系列课程（函数、透视表、图表、数据看板）
