پرسش ساخت انقضا برای فایل

[idinarash]

سلام ضمن تبریک اعیاد عزیز به همه عزیزان
دوستان گشتم پاسخ جامعی ندیدم
شرمنده من فایلی میخوام که
1. از امروز به مدت مثلا 60 روز بعد کار کنه (یعنی تاریخ الان رو بگیره و اجازه بده تا 60 روز بعد کار کنه )
2 - با تغییر تاریخ به کتربر پیغام بده تاریخ تغییر کرده
3 - بعد از اولین بار فقط اجازه باز شدن 100 بار داشته باشه
4 بعد از اتمام تاریخ کلا فایل پاک بشه
5 در صورت غیر فعال کردن ماکرو فایل باز نشه

خود فایل باشه عالیه

[میثم مقدم نیا]

سلام ضمن تبریک اعیاد عزیز به همه عزیزان
دوستان گشتم پاسخ جامعی ندیدم
شرمنده من فایلی میخوام که
1. از امروز به مدت مثلا 60 روز بعد کار کنه (یعنی تاریخ الان رو بگیره و اجازه بده تا 60 روز بعد کار کنه )
2 - با تغییر تاریخ به کاربر پیغام بده تاریخ تغییر کرده
3 - بعد از اولین بار فقط اجازه باز شدن 100 بار داشته باشه
4 بعد از اتمام تاریخ کلا فایل پاک بشه
5 در صورت غیر فعال کردن ماکرو فایل باز نشه

خود فایل باشه عالیه

سلام

دوست عزیز برای قسمت اول سوالتون میتونید از کد زیر استفاده کنید

Dim date1 As Date
    date1 = "13/04/2020"
    If Date > date1 Then
        Application.DisplayAlerts = False
        Application.Visible = False
                MsgBox "تاريخ برنامه تمام شده است"        
ActiveWorkbook.Close savechanges:=False
    End If 

برای قسمت سوم سوالتون میتونید از کد زیر استفاده کنید

m = GetSetting("pass", "pass", "pass", 0) + 1
    If m > 5 Then
        MsgBox "فايل از دسترس خارج شده است", vbCritical
        Application.Quit
    End If
SaveSetting "pass", "pass", "pass", m 

برای صفر کردن مجدد تعداد دفعات اجرای فایل یک فایل دیگر کنار فایل پیوست هست که میتوانید از آن استفاده کنید

و در مورد قسمت پنجم در برنامه نمونه با توضیح در قسمت کد نویسی موجود هست

کد های قبلی هم با توضیح هستند

برای راحتی کار شما

اما درمورد قسمت دوم و چهارم به دلیل کمی وقت نتونستم چیزی آماده کنم

امید وارم فایل پیوست به کار شما و سایر کاربران بیاد


توجه:

در فایل پیوست تعداد دفعات قابل اجرا 5 بار است

و تاریخ انقضا 3 روز تا تاریخ 13/04/2020 می باشد



با تشکر میثم مقدم نیا