*****非常神奇用VBA可以限定只用一次,则删除文件*****

geoLu

真的不错，这是一个能自我删除的VBA。

把它稍加改造，放到自己的VBA程序中，特别是设有试用期的VBA程序中，当超过试用期时，自动删除。太妙了。

fengsy

用来保护软件，太妙了。

qqboy1

以下是引用figfig在2005-5-20 20:18:00的发言：

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1

if aa>3 then aa=1 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

真的很棒，耳目一新！

51082481

会不会因为禁止vba项目后 不起作用

大家有没试过！

[此贴子已经被作者于2005-6-24 18:26:46编辑过]

fcy

以下是引用figfig在2005-5-20 20:18:00的发言：

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1

if aa>3 then aa=1 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

真开眼界

布衣铁剑

会不会因为禁止vba项目后 不起作用

加个禁用宏则自动退出工作簿的代码,不就完美了．

zj_xx

厉害！佩服！

能不能异想天开：破解BVA就自毁？

chenwintek

摩托骡拉！

想知道的是，这个次数保存在哪里的？电脑重启次数会不会丢失？

zz5151353

以下是引用figfig在2005-5-20 20:18:00的发言：

Private Sub Workbook_Open() Application.DisplayAlerts = False '只限用一次代码! aa = GetSetting(appname:="MyApp", section:="Startup", key:="aaa", Default:=1) MsgBox "还有" & 3 - aa & "次!!" If aa = 3 then ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End If aa = aa + 1

if aa>3 then aa=1 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

這一招,謝謝你 !!![em17]