اريد شرح كيفيه اضافه رساله ترحيب عند فتح شيت الاكسيل

[zorp]

                   

 

السلام عليكم

 

انا خبراتى قليله فى كيفيه استخدام لغه البرامجه VBA

لكن اريد ان اتعلم اريد شرح كيفيه اضافه رساله ترحيب عند فتح شيت الاكسيل

ولكم الشكر ارجو ان يكون الشرح مصورا

 مثال توضيحى

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

اخى

اولا

اوجه اليك دعوه لتغير الاسم الى اللغه العربيه

التزاما بتعليمات وقواعد المنتدى

بارك الله فيك

ثانيا

1-قم بالدخول الى محرر الاكواد

2-قم بالضغط مرتين على ThisWorkbook

   لفتح النافذه الخاصه به

3-قم باضافة الكود الاتى

' هذا السطر هو المختص بتنفيذ اى شء نريده عند فتح الملف
Private Sub Workbook_Open()
'MsgBox  الكود المختص فى كتابة الشئ الذى نريده
' h  عباره عنالرساله التى سوف تظهر عند فتح الملف
' ويمكنك تغيرها الى اى شئ تريده
' "" ولكن بشرط الحفاظ على علامتى التنصيص
MsgBox "h"
' هذا السطر هو المختص بنهاية عمل الكود
End Sub

اتمنى ان اكون وفقت فى عمل المطلوب

تقبل تحياتى