Office中国论坛/Access中国论坛

标题: Word文件在规定打开次数后打开自动自杀代码 [打印本页]

作者: csb740621 时间: 2008-3-4 18:53
标题: Word文件在规定打开次数后打开自动自杀代码
Word文件在规定打开次数后打开自动自杀代码

作者: pureshadow 时间: 2008-3-4 19:25
这个.....W的不会,EXCEL的倒是会的.

作者: tmtony 时间: 2008-3-4 19:26
是什么代码,能自杀?

作者: pureshadow 时间: 2008-3-4 22:29
就是打开指定次数后再打开就被KILL,连垃圾筒里都找不到

作者: tmtony 时间: 2008-3-5 01:58
传上来分享一下

刚才理解错了, 以为是把word自杀了,原来是Doc文件

作者: pureshadow 时间: 2008-3-5 15:25
用在E里的(源自兰色幻想)
Private Sub Workbook_Open()
aaa = GetSetting(appname:="myapp", section:="startup", key:="使用次数", Default:=1)
MsgBox "您还可以使用的次数为" & (20 - aaa) & "次，请尽快与作者联系！"
If aaa = 20 Then
DeleteSetting "myapp", "startup"
MsgBox "系统将被删除，感谢您的试用，再见！"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
aaa = aaa + 1
SaveSetting "myapp", "startup", "使用次数", aaa
End Sub
这个是20次的.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)