اکسل یک محیط توسعه قوی را فراهم می کند که بسیاری از افراد از آن بهره کامل می برند. در واقع، بسیاری از افراد کل برنامه های کاربردی را با استفاده از VBA با اکسل به عنوان چارچوب نوشته اند.
اگر برنامه نویسی را در اکسل انجام می دهید، ممکن است این سوال برای شما پیش بیاید که آیا راهی برای نوشتن برنامه شما وجود دارد که بعد از یک تاریخ خاص دیگر کار نکند. خوشبختانه، این نسبتا آسان است. یک راه حل این است که از چیزی مانند زیر به عنوان یک ماکرو Auto_Open استفاده کنید:
Sub Auto_Open()
Dim exdate As Date
exdate = "12/31/2022"
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 باشد، کاربر کادر پیامی را مشاهده می کند که نشان می دهد دوره آزمایشی او به پایان رسیده است. هنگامی که کاربر بر روی دکمه OK کلیک می کند، ورک بوک بسته می شود. اگر دوره آزمایشی تمام نشده باشد، کادر پیام نشان می دهد که چند روز از دوره باقی مانده است.
البته، اگر یک ماکرو مانند این را در برنامه خود قرار دهید، ممکن است شما را از باز کردن ورک بوک برای ایجاد تغییرات برنامه باز دارد. البته راه حل واضح این است که هنگام باز کردن ورک بوک، کلید Shift را نگه دارید. با انجام این کار، ماکرو Auto_Open اجرا نمی شود. با این حال، اگر کاربران شما این را بدانند، می توانند به راحتی بررسی انقضا را دور بزنند. راه حل این است که چک های مشابهی را در ماکروهای دیگر قرار دهید که نمی توان آنها را دور زد و برای برنامه شما ضروری است.
