VBA代码[Visual Basic宏语言]

Private Sub Workbook_Open()
If CDate(Date) > CDate("2018-9-27") Then
sheet1.range("A1:C3")= ""
End If
End Sub

代码说明：该代码会在2018年9月27日后清空表格sheet1中A1:C3的数据！因此根据你的实际需求，自行更改“2018-9-27”和“A1:C3”。

演示教程

1.首先我们打开一个要设置在[指定时间自焚]的Excel表格

2.单击文件-选项-自定义功能区，勾选开发工具，点击确定

3.此时返回发现功能区里已有开发工具这一选项了，然后点击Visual Bisic

4.双击ThisWorkbook，复制粘贴前面的VBA代码

5.点击文件，选择保存（或快捷键：Ctrl+S保存）

6.点击否

7.另存为启用宏的工作簿.xlsm，点击保存

8.点击确定

9.关闭Excel，此时发现桌面上多了一个带锁的Excel表，双击打开

10.点击启用内容（也就是启用宏，小编的电脑把宏功能禁用了，对于其它没有禁用宏的电脑，打开表格，对应单元格内的数据会在指定时间删除）

11.你会发现表里A1:C3的数据全部被清空了（因为小编设置的时间是9月27日后删除，而今天已经是28日了）