限制Excel表格使用次数，并自杀

上次写到，工作簿的使用期限，这次放出工作簿的使用次数，当次数超过时自动，关闭并删除文件！！

'程序需要放在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