如何对宏设置使用期限

excel表中如何对宏设置一个使用期限，比如我想设定位2014年1月1日就不能用了，该怎么设置

再+一个功能，到期前15天弹出提示窗口，提示还剩15天，14.13....每天倒计时，可以实现么

Private Sub Workbook_Open()
Dim d As Date
d = "2013/9/17"
If d - Date <= 0 Then MsgBox "已到期，本过程将不能再使用!", vbInformation: Exit Sub
If d - Date <= 15 Then MsgBox "还剩" & d - Date & "天到期！", vbInformation
'...功能语句
End Sub

按esc会看到有个宏命令设置的选项点开以后随便给 宏起个名字，比如 气定火球 ，然后选个图标。 就可以编辑了。最简单的可以自己组合。 /cast 就是施放法术的意思 ，/use 就是使用道具等。 比如妖术之颅 奥强 气定 火球宏 /use 妖术之颅 /cast 奥术强化 /cast 气定神闲 /cast 火球术 这只是不触发公告cd的技能可以这样写。触发cd的就要用 连续宏，还有判定宏等等。 http://bbs.game.mop.com/viewthread.php?tid=1505916&extra=page%3d1 这里是一些宏和 详细的教程，自己简单看下就能应用了。