ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何自杀 Excel 文件?

如何自杀 Excel 文件?

作者:绿色风 分类: 时间:2022-08-17 浏览:91
楼主
gvntw
Q:如何自杀 Excel 文件?
A:代码如下

  1. Sub KillMe()
  2.     Dim TB As Workbook
  3.     Set TB = ThisWorkbook
  4.     TB.ChangeFileAccess xlReadOnly '改为只读属性
  5.     Kill TB.FullName '删除文件
  6.     TB.Close False '不保存关闭
  7. End Sub

2楼
breezy
为何选择自杀?

3楼
gvntw
很多地方有这个需求,如设置文件在别人的电脑上一打开就自杀,呵呵
4楼
gouweicao78
是的,很多人出于保密要求,会做这样的东西。还有利用注册表计算打开次数,或限定到期时间,再销毁文件。
不过这个方法也只能对普通人有效,呵呵。
5楼
gvntw
使用注册表的方法如下:

如何限制Excel文件在非固定电脑上的使用期限
6楼
willin2000
写在工作表薄里的代码
  1. Sub KillMe()
  2.     Me.ChangeFileAccess xlReadOnly
  3.     Kill Me.FullName
  4.     Me.Close False
  5. End Sub


写在工作表里的代码
  1. Sub KillMe()
  2.     Me.Parent.ChangeFileAccess xlReadOnly
  3.     Kill Me.Parent.FullName
  4.     Me.Parent.Close False
  5. End Sub
7楼
洋五月
共同分享 ,还要搞自杀
8楼
gvntw
呵呵,不是什么都可以共享的,有些东东是不能让别人知道的,也许是个人隐私,也也许是公司机密,还也许是……
9楼
ggsmart
看过通过定义名称的方法统计打开次数,但如何利用注册表计算打死次数?这个方法一直想学,却没有学到。
如果学会的话,岂不是可以用excel写个需要注册的软件了?
强烈期待。。。。。
10楼
jackeroo
学习!虽然没学过VBA,不过大致意思还是可以看得懂的。
11楼
一枝花w_y95
不知道该怎样添加代码
12楼
gvntw
恐怖,是打开次数吧,请看看我5楼回复的链接。
13楼
xpm130
请问高手:那么如何保全这些带有自杀程序的excel文件呢?
不运行宏,使之不自杀,又能读得到?能做到吗,怎么做?
14楼
gvntw
按<Alt+F11>,插入—模块—粘贴代码,按F5运行。
15楼
gvntw
网上下载的添加“不启用则关闭”的代码。
添加不启用宏则关闭.rar
16楼
hanfeixue0
那我的excle禁用了宏功能,你自杀很难成功了吧?
17楼
gvntw
禁用了宏功能,文件就打不开。
18楼
棉花糖
07版下怎么改呢?
19楼
gvntw
07版保存为 *.xlsm 格式就是启用宏的工作簿了。
20楼
Fisch
学习了,很有用,谢了!
21楼
opelwang
感谢分享。很有用的知识。
22楼
chenyao
如果他把宏禁用或设置很高。那怎么**呀?
23楼
cuicui5866
可以设定时间**吗?不会跳出宏启用对话框吗?
24楼
kszcs
** Excel 文件
25楼
bostone
2007版下试验没有成功,宏表也不能起作用。
26楼
德全天合
代码应该写在哪啊,代码都是啥意思?呵呵,我啥都看不懂啊。
27楼
paul001
为什么复制代码到对话框里后总是提示出错呢
28楼
danysy
高手啊,今天刚好用到了
29楼
tiaozao
我弄了,可能是我的表格禁用宏,所以运行的时候没有反应,不**
30楼
renyz2006
这个方法还是慎用为好啊!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap