إظهار رسالة عند فتح الملف

[كريم]

السلام عليكم ورحمته الله وبركاته...

لقد بحث عن طلبي هذا في المنتدي لكني لم أجده وهو إنشاء الله طلب بسيط . وهو أريد عند فتح الملف تظهر رسالة تنبيهية تفيد بشيئا ما . سوف أقوم بكتابته في الكود في المستقبل وشكرا مستقبلا على المساعدة.

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

Sub Auto_Open()
MsgBox "hi"
End Sub

السلام عليكم

[عادل جلال]

الأخ / هادى سالم

السلام عليكم

نشكرك على كود الفتح

ممكن كود للغلق

أعزك الله

تحياتى

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

Sub Auto_Close()
MsgBox "Bay"
End Sub

السلام عليكم

[عادل جلال]

الأخ/ هادى سالم

الله يفتح عليك

انت عبقرى بمعنى الكلمة

جعله الله فى ميزان حسناتك

تحياتى

[كريم]

السلام عليكم...

جزاك الله خير أخ هادي لكن لا أعرف لماذا لم يعمل عندي الكود؟

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



جرب الملف المرفق



السلام عليكم

Open_Close_01.rar

[كريم]

السلام عليكم...

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

[azzm]

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

لكن كيف أجعل الرسالة تظهر على عدة أسطر ؟

لأني عندما أضغط انتر لكي أكتب سطر جديد يرفض !!

وعندما أضع في السطر الآخر MsgBox وأكتبه تظهر رسالة أخرى وأنا أريده في رسالة واحدة .

آسف على الإطالة وأتمنى لك وللجميع التوفيق .

[هادى محمد المامون سالم]

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

لكن كيف أجعل الرسالة تظهر على عدة أسطر ؟

لأني عندما أضغط انتر لكي أكتب سطر جديد يرفض !!

وعندما أضع في السطر الآخر MsgBox وأكتبه تظهر رسالة أخرى وأنا أريده في رسالة واحدة .

آسف على الإطالة وأتمنى لك وللجميع التوفيق .

بسم الله الرحمن الرحيم

Sub Auto_Open()
MsgBox "السطر الاول" & Chr(13) & "السطر الثانى"
End Sub

السلام عليكم

[azzm]

جزاك الله خير ونفع بك وغفر لك ولوالديك >>> اللهم آمين