حذف كود بناء على تاريخ محدد ( تحديد صلاحيته )

[مختار حسين محمود]

السلام عليكم  اخوانى فى المنتدى

 

 فى البداية  ألفت نظركم أنى قدمت لكم  من قبل موضوعاً وهو حذف كود من بعد ما يشتغل مرة واحدة على الرابط

 

http://www.officena.net/ib/index.php?showtopic=57103

 

وقدمت لكم موضوعا آخر بعنوان  كود يحذف كود آخر ( كود فى قاعة المحكمة )

 

http://www.officena.net/ib/index.php?showtopic=57981

 

أما موضوع اليوم سأعرض لكم  كيف يحذف كود تلقائيا بعد تاريخ معين

 

قبل الحذف  يخبرك كم يوما باقية على الحذف .

 

ببساطة يعنى ازاى نعمل صلاحية للكود مش لملف الاكسل   .  ضع الكود التالى فى حدث المصنف

Private Sub Workbook_Open()
Dim exdate As Date
Dim vbCom As Object

    exdate = "12/03/2015"   ' حدد تاريخ بدايةالحذف
    
    If Date > exdate Then
    MsgBox "من فضلك احصل على كود جديد من الوكيل الخاص بك "
    
    Set vbCom = Application.VBE.ActiveVBProject.VBComponents
    vbCom.Remove VBComponent:=vbCom.Item("Module1")  ' حدد اسم المديول المراد حذفه
    Exit Sub
    End If
    
 
    MsgBox ("لديك " & exdate - Date & "يوم للحصول على كود جديد من الوكيل المعتمد ")
   
    Application.Save
   
End Sub

الكود المراد تحديد صلاحيته  يوضع كمديول عادى  ونثبت اسمه فى الكود السابق

 

فى الكود السابق الحذف الآلى للمديول يبدأ اعتبارا من يوم  13/03/2015  يمكنك تعديله  الى يوم قديم  لحذف المديول

 

لا تنسى تمكين الماكرو  واليكم المرفق

 

Delete a VBA Module based on date.rar

[إبراهيم ابوليله]

اخى

الكود يقف عند هذا السطر

   Set vbCom = Application.VBE.ActiveVBProject.VBComponents

نرجو الافاده

تقبل تحياتى

[ياسر خليل أبو البراء]

الأخ الحبيب مختار

بارك الله فيك وجزاك الله خير الجزاء

بقالك أسبوع في بالي (بس مش عارف أوصلك إزاي وأسأل عليك إزاي .. متبقاش تتأخر علينا .. بالي ارتاااااااااح والحمد لله)

تقبل تحياتي

[ياسر خليل أبو البراء]

بعد تجربة الكود .. قمت بتجربة الكود مرة .. وعند تشغيل الملف للمرة الثانية ظهرت رسالة

[أ/حكيم]

جزاك الله خيرا

[مختار حسين محمود]

السلام عليكم

الأستاذ الفاضل ابراهيم ابوليلة

الأستاذ الفاضل ياسر خليل 

الأستاذ الفاضل  حكيم

بارك الله فيكم وفى مروركم الكريم 

 

بالنسبة للأخطاء  : يمكن الاستغناء  عن السطر    Application.Save     فى الكود ولاننسى تمكين الماكرو قبل فتح الملف

 

والتعديل فى المرفق التالى

(حذف كود بناء على تاريخ محدد ( تحديد صلاحيته.rar

تم تعديل مارس 11, 2015 بواسطه مختار حسين محمود

[إبراهيم ابوليله]

اخى

مازال الخطأ مستمر

عند حدوث عملية الحزف

تقبل تحياتى

[مختار حسين محمود]

الملف يعمل عندى دون حدوث أى أخطاء

 

أعمل على أوفيس 2010

 

أقترح على حضرتك انشاء ملف اكسل جديد وأن تضع الكود بدون السطر  Application.Save

Private Sub Workbook_Open()
Dim exdate As Date
Dim vbCom As Object

    exdate = "13/03/2015"   ' حدد تاريخ بدايةالحذف
    
    If Date > exdate Then
    MsgBox "من فضلك احصل على كود جديد من الوكيل الخاص بك "
    
    Set vbCom = Application.VBE.ActiveVBProject.VBComponents
    vbCom.Remove VBComponent:=vbCom.Item("Module1")  ' حدد اسم المديول المراد حذفه
    Exit Sub
    End If
    
 
    MsgBox ("لديك " & exdate - Date & "يوم للحصول على كود جديد من الوكيل المعتمد ")
   
   
   
End Sub

أدرج مديول  جديد  ( طبعاً هيكون اسمه  Module1  )   احفظ   واقفل  وأعد فتح الملف 

 

مرة أخرى أؤكد أننى أعمل على أفيس 2010  والملف يعمل بدون أخطاء 

 

أرجو من باقى الزملاء  تأكيد أو نفى عمل الكود

 

لكم جميعا كل التحية والتقدير

[إبراهيم ابوليله]

اخى

اشكرك على المجهود المبذول

ولكن ماذال الخطا موجود

وانا اعمل ايضا على اوفيس2010

تقبل تحياتى

[مختار حسين محمود]

متأسف أستاذى ابراهيم على تأخر الرد وعدم المتابعة

شاهدت مشاركتك الأخيرة بالصدفة الآن وأنا براجع موضوعاتى

لربما يكون فيه مشاركة ولم أرد عليها كمشاركتك هذه فاعذرنى

أستاذى الفاضل لا أعرف الخطأ عندك لكن أريد التأكيد على النقاط الآتية :

وجود كود الحذف فى حدث المصنف

وجود الكود المحذوف فى الملف كمديول عادى وتحت اسم Module1

تاريخ  حذف الكود فى كود الحذف يكون أقل من تاريخ اليوم على جهازك

بعد التأكد من ده كله اعمل تمكين الماكرو  واحفظ الملف ثم أعد فتحه .

تحياتى لحضرتك وأعتذر مرة أخرى لتأخر الرد  شكرا لك

[إبراهيم ابوليله]

آخى مختار

اشكرك على المساعده

بالفعل الكود ظبط معايا

تقبل تحياتى

[مختار حسين محمود]

شرفت بمروركم أستاذى الكريم