欢迎来到天天文库
浏览记录
ID:58799553
大小:13.00 KB
页数:1页
时间:2020-09-27
《限制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的值
此文档下载收益归作者所有