Excel提供了一个强大的开发环境，许多人可以充分利用它。实际上，许多人已经使用VBA和Excel作为框架编写了整个应用程序。

如果您使用Excel进行程序开发，您可能想知道是否有一种方法可以编写程序，以使其在特定日期后不再可用。幸运的是，这很容易。一种解决方案是将以下内容用作Auto_Open宏：

Sub Auto_Open()

Dim exdate As Date     exdate = "12/31/2020"

If Date > exdate Then         MsgBox ("You have reached end of your trial period")

ActiveWorkbook.Close     End If     MsgBox ("You have " & exdate - Date & "Days left")

End Sub

如果运行程序的系统上的日期大于exdate变量中指定的日期，则用户将看到一个消息框，指示其试用期已到期。当用户单击“确定”按钮时，工作簿将关闭。如果试用期尚未结束，则消息框将指示该时期还剩下多少天。

当然，如果在应用程序中放置了这样的宏，它可能会阻止您打开工作簿以进行程序更改。当然，解决此问题的明显方法是在打开工作簿时按住Shift键。这样做会使Auto_Open宏停止运行。如果您的用户知道这一点，那么他们可以像您一样轻松地绕过到期检查。解决方案是将类似的检查放置在其他不能绕过的宏中，这对您的程序至关重要。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（10230）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较旧菜单界面找到此技巧的版本：

Excel程序的到期日期。