[VBA特2期]抢11:工作薄只能打开五次

青城山苦丁茶

编一段代码，该工作薄只能打开五次，超过五次则自动关闭文件

豆丁

<p><font face="新宋体"></font></p><p>

游客，如果您要查看本帖隐藏内容请回复

ruoyingkitty

study

静s听w风q雨

看看

事后诸葛亮

study

raulerini

<p>用修改注册表的方法做的。貌似与本周的专题没什么关系。</p><p>rivate Sub Workbook_Open()<br/>&nbsp;&nbsp;&nbsp; Dim counter As Long, chk<br/>&nbsp;&nbsp;&nbsp; chk = GetSetting("hhh", "budget", "使用次数", "")<br/>&nbsp;&nbsp;&nbsp; If chk = "" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; term = 5&nbsp;&nbsp; '限制使用50次<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "本工作簿只能使用" &amp; term &amp; "次" &amp; vbCrLf &amp; "超过次数将自动销毁!", vbExclamation<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SaveSetting "hhh", "budget", "使用次数", term<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; counter = Val(chk) - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "你还能使用" &amp; counter &amp; "次,请及时注册!", vbExclamation<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SaveSetting "hhh", "budget", "使用次数", counter<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If counter &lt;= 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DeleteSetting "hhh", "budget", "使用次数"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisWorkbook.Close False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</p><p></p><p>先交了，看答案。</p>

dongqing1998

游客，如果您要查看本帖隐藏内容请回复

那么的帅

游客，如果您要查看本帖隐藏内容请回复

轩辕轼轲

我也来看看答案。

liyh67

<p>

游客，如果您要查看本帖隐藏内容请回复

</p>