怎样使用VBA文件定时自我删除?
1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码,然后运行
Private Sub Workbook_Open()
If Now() >=#7/7/2007# Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub

5、重新启动工作簿,因为开启文件的时间已超过代码中规定的时间——“2007年7月7日”,所以文件开启时立即关闭并且彻底删除,不经过回收站。使用时根据需要修改时间即可

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:77
阅读量:151
阅读量:68
阅读量:82
阅读量:39