workbook_open事件练习:限制excel文件使用次数

兰色幻想 · 发表于 2008-1-19 21:19

有时候需要限制excel文件的使用次数.  如何用workbook _open事件限制工作表的使用次数呢?(假设用户每次都启用宏)  超过了限制次数提示"你超过了使用次数",然后关闭当前工作簿(Activeworkbook.close )  大家想好后把代码贴上来.(借助工作表就行,不须用注册表)

[此贴子已经被作者于2008-1-19 21:27:17编辑过]

zjxia889 · 发表于 2008-1-19 21:24

书上有讲,记不了

至尊宝_98_76 · 发表于 2008-1-19 21:41

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

[此贴子已经被作者于2008-1-19 21:41:23编辑过]

laosanjie · 发表于 2008-1-19 21:47

还没头绪？！只有先学习借鉴了！[em04]另我想问个问题：若这个设定了打开次数的工作簿超过允许打开的次数以后，之后每次再打开时就自动关闭了？！那还有没有办法使其再打开呢？！

[此贴子已经被作者于2008-1-19 22:03:58编辑过]

第三杯茶 · 发表于 2008-1-19 21:51

响应一个:

rivate Sub Workbook_BeforeClose(Cancel As Boolean) Me.Save End Sub '--------------------------------------

rivate Sub Workbook_Open() Application.Visible = False With Sheet1     .Unprotect Password:="EP"     .[A1] = .[A1] + 1     If .[A1] <= 10 Then          MsgBox "您还可以试用" & 10 - .[A1] & "次"          Application.Visible = True     Else          MsgBox "您已超过了使用次数!"          ActiveWorkbook.Close SaveChanges:=False     End If     .Protect Password:="EP"     .EnableSelection = xlNoSelection End With End Sub

zgwei050 · 发表于 2008-1-19 22:04

兰版今天的几个题目，搞得偶消化不良了......都是突发“事件”（1）思路决定出路；（2）基本功不行啊！

[此贴子已经被作者于2008-1-19 22:12:19编辑过]

laosanjie · 发表于 2008-1-19 22:12

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用zgwei050在2008-1-19 22:04:00的发言： 兰版今天的几个题目，搞得偶消化不良了......都是突发“事件”</div>深有同感！！！[em04]

至尊宝_98_76 · 发表于 2008-1-19 22:19

兰版的题目很实用啊

zgwei050 · 发表于 2008-1-19 22:25

看至尊宝的思路就是灵！[em17][em17][em17]x = Sheet1.Range("a1") Range("a1") = x + 1两句合成一句行吗？Sheet1.Range("a1")= Sheet1.Range("a1") + 1

hhzjxss · 发表于 2008-1-19 22:49

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

[此贴子已经被作者于2008-1-20 9:18:35编辑过]

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

[习题] workbook_open事件练习:限制excel文件使用次数