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

gouweicao78 · 发表于 2005-11-3 21:36

我脑海中闪过一个念头：工作表给用，但是保护了，然后VBA里编了这么个东西进去，再加一些（我不懂VBA，但我相信能实现）判断是否工作表保护密码被破解，只要失去保护就自动销毁，如果俏皮点就出个对话框恭喜他破解密码成功，但是……之类的话，

mayiwang · 发表于 2005-11-5 18:38

学习进度好慢，好辛苦，……

lvzhiyong · 发表于 2005-11-16 22:38

使用次数到，不删除文件，自行关闭。应怎样改写！

832100 · 发表于 2005-11-21 19:17

我一直点“否”他的次数不变呀！！

swanleo · 发表于 2005-11-21 23:53

kezhiye · 发表于 2005-11-22 07:56

以下是引用gouweicao78在2005-11-3 20:49:00的发言：
呵呵，这个我用了之后就不灵了，原来它是把次数写进了注册表啊，那如果通过修改注册表会不会就……破解了呢。

写到哪个键值下了?

fokus · 发表于 2005-11-22 16:04

用来保护软件，太妙了

dsjlgx8888 · 发表于 2005-12-2 17:44

以下是引用FENGJUN在2005-5-21 10:34:00的发言：
>

代码的准确作用似乎应是“打开则自毁”，是一次也不能用！

wish2004 · 发表于 2005-12-2 18:23

以下是引用[I]figfig[/I]在2005-5-20 19:27: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 SaveSetting "MyApp", "Startup", "aaa", aa End Sub

问一下，为什么＝号前要有“：”，有的又不用[em04]

[此贴子已经被作者于2005-12-2 18:23:36编辑过]

jyq8 · 发表于 2005-12-2 20:52

侠之圣者，能不能到期只删除VBA代码，而不删除文件，这样不会使别人造成损失。你要是能做出这个到期只删除VBA代码而不删除文件更好。

		自动登录	找回密码
密码			免费注册