限制工作簿打开使用次数

wujian_pd · 发表于 2010-3-23 23:37

请各位老师帮帮忙写段代码，需求：一是限制工作簿打开的次数，如5次，超过5次后不能打开；二是每次打开工作簿时总是显时同一工作表，如附件的“主页”。[local]1[/local][local]3[/local]

[ 本帖最后由 wujian_pd 于 2010-3-23 23:55 编辑 ]

execl · 发表于 2010-3-23 23:56

留意下。。。。

987654321 · 发表于 2010-3-23 23:57

请参考http://club.excelhome.net/thread-444369-1-1.html

五、限制工作簿的使用次数，超过次数就自我删除
限制工作簿的使用次数，超过次数就自我删除，也不失为保护作品的一种好方法。但这种方法需要修改注册表。
有关程序的代码如下：
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 50 '限制使用50次
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub

Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。
★提示：使用该方法也可以限制工作簿的使用时间

wujian_pd · 发表于 2010-3-24 00:35

我只想限制打开次数，并不想自杀

wujian_pd · 发表于 2010-4-2 15:02

请高手帮帮忙！

wujian_pd · 发表于 2010-5-26 00:34

求助于各位老师

fsydw · 发表于 2010-5-26 02:22

原帖由 wujian_pd 于 2010-3-24 00:35 发表
我只想限制打开次数，并不想自杀

活着多好

删除这句Kill ActiveWorkbook.FullName

kls00 · 发表于 2013-1-15 21:59

留个记号，以后用

林中侠 · 发表于 2022-12-23 22:02

收藏学习下

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

[求助] 限制工作簿打开使用次数