上次写到,工作簿的使用期限,这次放出工作簿的使用次数,当次数超过时自动,关闭并删除文件!!
'程序需要放在ThisWorkbook
Private Sub Workbook_Open()
Dim counter As Long
Dim term As Long
cs = GetSetting("hhh", "budget", "使用次数", "")
If cs = "" Then
term = 1 '限制使用1次,自己修改
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
Application.Quit '连程序一块关闭
End Sub