Excel bietet eine robuste Entwicklungsumgebung, die viele Benutzer voll ausnutzen. Tatsächlich haben viele Leute ganze Anwendungsprogramme mit VBA mit Excel als Framework geschrieben.

Wenn Sie die Programmentwicklung in Excel durchführen, fragen Sie sich möglicherweise, ob es eine Möglichkeit gibt, Ihr Programm so zu schreiben, dass es nach einem bestimmten Datum nicht mehr funktioniert. Zum Glück ist das ziemlich einfach. Eine Lösung besteht darin, Folgendes als Auto_Open-Makro zu verwenden:

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

Wenn das Datum auf dem System, auf dem das Programm ausgeführt wird, größer als das in der Variablen exdate angegebene Datum ist, wird dem Benutzer ein Meldungsfeld angezeigt, das angibt, dass der Testzeitraum abgelaufen ist. Wenn der Benutzer auf die Schaltfläche OK klickt, wird die Arbeitsmappe geschlossen. Wenn der Testzeitraum nicht abgelaufen ist, gibt das Meldungsfeld an, wie viele Tage noch im Testzeitraum verbleiben.

Wenn Sie ein solches Makro in Ihre Anwendung einfügen, kann dies natürlich dazu führen, dass Sie die Arbeitsmappe nicht öffnen können, um Programmänderungen vorzunehmen. Der naheliegende Weg, dies zu umgehen, besteht natürlich darin, die Umschalttaste gedrückt zu halten, während Sie die Arbeitsmappe öffnen. Dadurch wird die Ausführung des Auto_Open-Makros gestoppt. Wenn Ihre Benutzer dies wissen, können sie die Ablaufprüfung jedoch genauso einfach umgehen wie Sie. Die Lösung besteht darin, ähnliche Überprüfungen in anderen Makros durchzuführen, die nicht umgangen werden können und für Ihr Programm wesentlich sind.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (10230) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Ablaufdatum für Excel-Programme.