هل من الممكن دمج كودين في واحد؟؟؟

[أبو انتصار]

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

 

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

 

إخوتي و أحبتي في الله

 

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

 

الكود الأول:

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
End Sub

الكود الثاني

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
End Sub

[حمادة عمر]

استاذ /  أبو انتصار

 

ع السريع . كده ...

شاهد الملف المرفق ... عسي ان يكون المطلوب

 

دمج كودين مع بعضهم البعض عند فتح الملف.rar

 

 

[أبو انتصار]

بارك الله فيك أخي العزيز على المساعدة ، و على سرعة الرد 

[حمادة عمر]

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

[أبو انتصار]

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

[وليد زقزوق]

هذا برنامج به شاشه تسجيل بيانات 

ما اريده هو كود لاظهار الشاشه حال فتح البرنامج تلقائيا

وزر اخر داخل الفورم للرجوع للملفتسجيل 2014.rar

ولكن اريد كيفيه دمج المطلوب مع الملف المرفق حيث اني ارفقت المثال للعمل عليه ولكن اصل الملف عندي وبه اكثر من الف سجل فلا يعقل ان انقل كل السجلات علي الملف الجديد ولكني سوف اقوم بفهم الفكره وطريقه التنفيذ 

[أبو انتصار]

أخي وليد زقزوق أرجو منك أن تعمل على نقل موضوعك إلى موضوع مستقل حتى يطلع عليه جميع الإخوة و حتى يجدوا له الحل المناسب و أنا متأكد أن حل المشكل سيكون على يد أساتذة المنتدى