كود VBA يعمل لفتره معينه ثم يقف و يعرض رساله معينة

[Ahmedpoop]

السلام عليكم و رحمة الله

بداية اود ان اشكر كل القائمين على هذا المنتدى العظيم الذى افادنى كثيرا 

عندى اكواد ماكرو لبرنامج معين ... عايز اضيف عليها كود يخليها تشتغل فترة 300 او 500 يوم مثلا و بعدين تعرض رساله ان البرنامج مثلا يحتاج لتفعيل او اى رساله اخرى ... ارجو المساعده فى كتابة مثل هذا الكود و جزاكم الله خير

[Ali Mohamed Ali]

وعليكم السلام -اهلا بك اخ كريم فى المنتدى

عليك أولا قبل طرح سؤالك ان تستخدم خاصية البحث فى المنتدى -فربما يكون سؤالك قد عرض مسبقا

فإليك هذا الرابط يمكنك تتبعه بارك الله فيك :

 

 

تم تعديل يوليو 7, 2018 بواسطه ali mohamed ali

[Ali Mohamed Ali]

وهذا ملف به كود انتهاء الصلاحية وتوقف الملف عن العمل فى 15/07/2018

 

نهاية صلاحية ملف.xlsm

[Ali Mohamed Ali]

وهذا هو الكود المستخدم فى حدث الصفحة بالملف :

Private Sub Workbook_Open()
If Date >= DateValue("15/07/2018") Or Sheets("sheet1").Range("a1") = 1 Then
Sheets("sheet1").Range("a1") = 1
MsgBox "Expire ÅäÊåÊ ÕáÇÍíÉ ÇáãáÝ"
ThisWorkbook.Save
Application.Quit
End If
End Sub

 

 

[Ahmedpoop]

شكرا جزيلا اخى الكريم ..... جزاك الله خير

استفسار اخر هل يمكن عمل ماكرو يقوم بمسح موديول من VBA EDITOR ......