محدودیت تاریخ برای اکسل

در این پست میخوام یک نوع محدودیت گذاری بسیار پرکاربرد را برای برنامه های تولید شده تحت vba اکسل رو آموزش بدم که میتوانید برای برنامه های خودتان محدودیت زمانی تعیین کنید که بعد از یک مدت زمان مشخص قایل اجرا نباشد و یک پیغامی را نمایش دهد، منطق کار بسیار ساده هست به این صورت که ابتدا باید با یک تابع به نام Date تاریخ فعلی سیستم را بگیریم سپس یک شرط تعیین میکنیم که اگر این تاریخ از تاریخ تعیین شده ما بیشتر شد برنامه پیغام نمایش داده و اجرا نمی شود:

Dim date1 As Date

date1 = "12/06/2018"

if Date &gt; date1 then
Application.DisplayAlerts = False
Application.Visible = False

MsgBox "تاریخ برنامه تمام شده است"
ActiveWorkbook.Close
End if

Dim date1 As Date

date1 = "12/06/2018"

if Date > date1 then

Application.DisplayAlerts = False

Application.Visible = False

MsgBox "تاریخ برنامه تمام شده است"

ActiveWorkbook.Close

End if

ابتدا یک متغیر تعریف میکنیم از نوع تاریخ که تاریخ مورد نظر را در داخل آن وارد می نماییم سپس با یک رابطه شرطی به این صورت که اگر تاریخ فعلی از تاریخ مورد نظر بیشتر شد ابتدا هر گونه خطا را غیرفعال سپس نمایش اکسل رو هم غیر فعال کند و بعدا پیغام مورد نظر ما را نمایش دهد حالا در نهایت میتوانیم با یک کد ساده برنامه را ببندیم.