Dim計數器壹樣長，term壹樣長，chk
Chk = GetSetting("hhh "，" budget "，" usage times "，"等)。
如果chk = " "那麽
$ term = 50 '限制使用50次
MsgBox“此工作簿只能用於”&；術語和術語。“次要”&；vbCrLf & amp；“超過次數會自動銷毀！”，VB感嘆號
保存設置“hhh”，“預算”，“使用”，$ term
其他
counter = Val(chk) - 1
MsgBox“還能用”&；櫃臺& amp“請及時註冊！”，VB感嘆號
保存設置“hhh”，“預算”，“使用”，計數器
如果計數器& lt那麽= 0
刪除設置“hhh”、“預算”、“使用次數”
殺死我
如果…就會結束
如果…就會結束
末端接頭
Public Sub killme()
申請。顯示警報=假
ActiveWorkbook。ChangeFileAccess xlReadOnly
終止ActiveWorkbook。全名
此工作簿。關閉假
末端接頭
源代碼，供參考。time函數now()指定日期# 2011-12-31 #。希望妳能自己改程序。
後壹種應該不會實現，因為輸入密碼時宏代碼還沒有執行。