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的较旧菜单界面找到此技巧的版本: