限制Excle表使用次数.doc

《限制Excle表使用次数.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、限制工作簿的使用次数，超过次数就自我删除限制工作簿的使用次数，超过次数就自我删除，也不失为保护作品的一种好方法。但这种方法需要修改注册表。有关程序的代码如下：PrivateSubWorkbook_Open()DimcounterAsLong,termAsLong,chkchk=GetSetting("hhh","budget","使用次数","")Ifchk=""Thenterm=5'限制使用5次MsgBox"本工作簿只能使用"&term&"次"&vbCrLf&"超过次数将自动销毁!",vbExc

2、lamationSaveSetting"hhh","budget","使用次数",termElsecounter=Val(chk)–1MsgBox"你还能使用"&counter&"次,请及时注册!",vbExclamationSaveSetting"hhh","budget","使用次数",counterIfcounter<=0ThenDeleteSetting"hhh","budget","使用次数"killmeEndIfEndIfEndSubPublicSubkillme()Applicati

3、on.DisplayAlerts=FalseActiveWorkbook.ChangeFileAccessxlReadOnlyKillActiveWorkbook.FullNameThisWorkbook.CloseFalseEndSub将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。★提示：使用该方法也可以限制工作簿的使用时间term=50'限制使用50次没有运行之前,想设置使用次数的值,可以更改以上代码值如是以上代码运行了,就必须修改注册表开始_运行,输入REGEDI

4、T,打开注册表,找到:"HKEY_CURRENT_USERSoftwareVBandVBAprogramsettings"打开"hhh",修改budget的值