1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Private Sub Workbook_Open猾诮沓靥()If Now() >=#7/7/2007# Then ActiveWorkbook.C茑霁酌绡hangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName Application.QuitEnd IfEnd Sub
5、重新启动工作簿,因为开启文件的时间已超过代码中规定的时间——“2007年7月7日”,所以文件开启时立即关闭并且彻底删除,不经过回收站。使用时根据需要修改时间即可