راجع هذا الموضوع
http://www.arabteam2000.com/vb/showthread....&threadid=24267
أشكرك سيدي الفاضل . ولي سؤال آخر وارجو أن لا أكون قد أثقلت عليكم .
رأيت Message Box ظهرت عند فتح ملف الأكسيل .. فكيف أقوم بعمل ذلك على ملف أكسيل لتظهر هذه الرساله عند تاريخ معين بالجهاز عند فتح الملف ؟؟
أشكرك
في حدث عند الفتح
ضع الكود المذكور
كما هو هنا
Private Sub Workbook_Open() If Date = #4/8/2003# Then MsgBox "kkkk" End If End Sub
حيث 8 هو رقم اليوم و 4 الشهر
إضغط ALT+F11
ثم انقر مرتين علي ال woorkbook و الصق الكود كما فى المثال فى الموضوع الاخر
ألف شكر يا مهندس يا فنان .
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
