过日期后自动删除Excel

时间 : 15-02-16 栏目 : 案例专题 作者 : 战战如疯 评论 : 1 点击 : 4,546 次

除非注明,文章均为 战战如疯 原创,转载请保留链接: http://www.zhanzhanrufeng.com/cat4/631.html,VBA交流群273624828。

打开Excel时自动运行程序,将当前时间与设置的时间进行比较,如果超时的话就将工作簿自动删除,可以起到设置使用期限的作用。

Private Sub Workbook_Open()
If Now() >= #2/12/2015# Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub

代表放了Open事件中。



2017年一月
« 七    
 1
2345678
9101112131415
16171819202122
23242526272829
3031  

联系博主

咨询,程序开发,友链交换请联系博主 QQ:449217002
VBA QQ群:273624828

注意!复制代码请用Ctrl+C!

相关文章



无觅相关文章插件,快速提升流量

1