Excel предоставляет надежную среду разработки, которой многие люди пользуются в полной мере. Фактически, многие люди написали целые прикладные программы, используя VBA с Excel в качестве основы.

Если вы разрабатываете программу в Excel, вам может быть интересно, есть ли способ написать свою программу, чтобы она больше не работала после определенной даты. К счастью, это довольно просто. Одно из решений — использовать в качестве макроса Auto_Open что-то вроде следующего:

Sub Auto_Open()

Dim exdate As Date     exdate = "09/30/2015"

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), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2590) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Expiration_Date_for_Excel_Programs [Срок действия для программ Excel].