عمل رسالة ترحيب

[جوده]

الى الاخوة الافاضل

برجاء مساعدتى فى عمل رسالة ترحيب عند فتح الملف مثلا لتكن goda 509129

لكم منى كل احترام وتقدير

g

goda509129.rar

goda509129.rar

[أ / محمد صالح]

يمكنك استعمال هذا الكود

Private Sub Workbook_Open()

MsgBox "اكتب هنا نص الرسالة الذي تريده"

End Sub

[جوده]

اخى الكريم لك منى كل احترام وتقدير

جارى العمل وشكرا

[عمر أبو صهيب]

جزاك الله خيرا أستاذ محمد صالح

لكن أمن سبيل لتظهر الرسالة حتى قبل تفعيل الماكروات ؟؟؟

تم تعديل مارس 6, 2013 بواسطه عمر أبو صهيب

[أبو محمد أشرف]

رائع استاذ محمد 

مع التنبيه أن هذا الكود يوضع في حدث الورقة thisworkbook