wordexcel技巧一千遍

1.Excel表设置使用次数,打开一次少一次（如设定1000次,打开1000次

限制工作簿的使用次数，超过次数就自我删除

限制工作簿的使用次数，超过次数就自我删除，也不失为保护作品的一种好方法。但这种方法需要修改注册表。

有关程序的代码如下：

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对象模块中，保存文件即可。

★提示：使用该方法也可以限制工作簿的使用时间

term = 50 '限制使用50次

没有运行之前，想设置使用次数的值，可以更改以上代码值

如是以上代码运行了，就必须修改注册表

开始_运行，输入REGEDIT，打开注册表，找到："HKEY_CURRENT_USER\Software\VB and VBA program settings" 打开"hhh"，修改budget的值

转载请注明出处51数据库 » wordexcel技巧一千遍