[原创][原创]实现注册功能的模版---欢迎测试!!

opiona

yZQiqHK3.rar (9.35 KB, 下载次数: 1209)

2006-11-30 14:10 上传

点击文件名下载附件
[原创][原创]实现注册功能的模版---欢迎测试!!

功能:   提示excel vba的保密功能对于高手来说和没有一样!!!!!!

1.第一次打开,自动写入分区id到finish表iu65536(也可以提前写好),以后打开会判断.防止复制到其它机器上使用

2.自动写入第一次打开时的日期,finish表iv65536,有效期限 iv65535, 超过期限无法使用(看不到数据表)

3.每次打开的时间写入iu65535,防止修改系统日期,达到超期使用的目的

4.自动保存

5.日后自己可以利用代码远程升级(使用代码打开此文件,重新写入iv65536和iu65535,即可实现)

欢迎测试!!!!!!!!!!!!!!!!!!!

可以根据个人需要添加"不启动宏关闭工作簿"功能和添加"数字签名","工程密码"

sub opiona()'简单说就是延长使用期限，发送一个excel文件，打开，关闭即可

  Application.EnableEvents = False '不启动宏

Workbooks.Open Filename:="D:\我的文档\模版-注册.xls"

range("iv65536").select

sheets("finish").range("iv65536")=date'设置有效期开始日期,或者＝“2006-11-23”更保险，以防升级被重复使用

sheets("finish").range("iu65536")=100'设置有效期，这里是100天

   ActiveWorkbook.Save
    ActiveWindow.Close

’使用kill将本文件（升级文件）销毁

end sub

’使用kill将本文件（升级文件）销毁参考：

ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.DeleteLines 4

wawjx_za

可以，真的很好

gonghg

楼主,我用的是xp+2003,显示如下错误信息:

 

[此贴子已经被作者于2006-12-26 18:26:57编辑过]

opiona

QUOTE:

以下是引用gonghg在2006-12-26 18:22:15的发言：

楼主,我用的是xp+2003,显示如下错误信息:

 

没有看到错误图片，请上传

abc_zc

好东西，收藏先,以后慢慢的研究

yfxpzq

不错，支持！

hhzjxss

怎么我打开时没有提示要注册呀？？？？

opiona

第一次打开，自动保存信息，

在此打开，就会检查有效期和分区id

QUOTE:

以下是引用hhzjxss在2007-2-22 17:18:22的发言：
怎么我打开时没有提示要注册呀？？？？

shaokui123

稀里糊涂的，不清楚

飞云楼主

试试，不错，学习。