Word文件在规定打开次数后打开自动自杀代码

csb740621

Word文件在规定打开次数后打开自动自杀代码

pureshadow

用在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次的.

tmtony

传上来分享一下
刚才理解错了, 以为是把word自杀了,原来是Doc文件

pureshadow

就是打开指定次数后再打开就被KILL,连垃圾筒里都找不到

tmtony

是什么代码,能自杀?

pureshadow

这个.....W的不会,EXCEL的倒是会的.