如何设置Excel文件的使用期限，一年或100次、500次等等？

如何设置Excel文件的使用期限，一年或100次、500次等等？

这要用到VBA，复制这段代码到 Thisworkbook 表格另存为【启用宏的工作簿】
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 100
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

EXCEL无非是用宏实现，如果人家电脑没有开启宏，那代码根本就无效。一般都不开启的。所以你的设想基本没用。

如果我的excel禁用了宏，你能让我打开带宏的excel时自动启用宏，那我可以帮你写你要的代码，如果你做不到，那给你写好代码，下次你也不会修改，自已写代码不一定每一步都写说明，我的EXCEL是2007版本追问你好！麻烦你给我写一个自动启用宏的代码，好吗？ 谢谢！追答
自动运行宏

只能是用事件，workbook open追问你好！你说的事件workbook open 可具体代码怎样写呢？为盼！谢谢！