حمادة عمر

السلام عليكم الاخ الكريم / محمود_الشريف بارك الله فيك مرور طيب وكريم من شخص كريم تقبل خالص تحياتي

علامة x اخي الكريم من الممكن التحكم فيها كما تريد اما ان تفتح الملف عند اغلاق الفورم ( وهذا هو الوضع الطبيعي اذا لم تقم بتحديد اي مهمه له ) واما ان يظهر رساله عند الضغط تفيد بانه مثلا لا يمكن الاغلاق منها ولا يتم اغلاق الفورم او اظهار الملف وهناك العديد والعديد من الخيارات التي يمكن تنفيذها علي زر الاغلاق x حدد ما تريد اولا واليك كمثال الكود التالي ضع في حدث الفورم نفسه الكود التالي Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'وهنا اختيار امر بمعناه الاستفسار عند الاغلاق من الاطار علامة الاكس If CloseMode = 0 Then Cancel = True ' هذا السطر به قاعدة IF 'وتقول انه عند استخدام الاكس في الفورم او اذا استخدمت قم بايقاف الامر واظهار الرسال التالية MsgBox "عذرا لا يمكنك استخدام زر الخروج للخروج من هنا .. استخدم الزر بالاسفل .. مع تحياتي / سيد رجب " 'Xهذا السطر به الرسالة التي نريدها ان تظهر عند الضغط علي الزر End If ' نهاية قاعدة IF End Sub تقبل خالص تحياتي اجازات الموظفين45.rar

اخي الكريم / محمود الشريف

السلام عليكم الاخوة الكرام بالفعل الملف ( غلبني ) علي ما اشتغل معايا ولذلك وبعد الحصول علي المعلومات الموجودة فيه اردت التسهيل بعض الشئ علي الباحثين او المطلعين علي هذا الموضوع فوضعت محتوي البرنامج والخاص ( دوال الفيجوال بيسيك مع الشرح ) علي ملف ورد 2003 ليسهل تحميله وتصفحة والاستفادة منه ارجو ان يفيد ... تقبلوا خالص تحياتي دوال الفيجوال بيسيك مع الشرح علي الورد.rar

الاخ الحبيب / احمد مجدي عذرا حيث لا يمكنني عرض الملف الفيديو بجهازي لا اعلم السبب ولذلك لم اعلم ما هو المطلوب بالضبط رجاء توضيحه ولو كتابة او في الملف نفسه وما هو المطلوب وعذرا ع التأخير حيث لم ار رسالتك الا الآن تقبل خالص تحياتي

الاجابة علي السؤال لمن يبحث او يطالع هذا الموضوع علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=51118 تقبلوا خالص تحياتي

الاخ الكريم / محمد قدومي بارك الله فيك وان شاء الله باصرارك وحبك للتعلم ستصل الي ما تصبو اليه تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك تقبل خالص تحياتي

السلام عليكم الاخ الكريم / MJDO بارك الله فيك علي حسب فهمي لطلبك استخدم الكود التالي لطباعة صفحة مخفية ويعمل الكود علي اظهارها وقت الطباعة فقط ثم اخفاؤها مرة اخري وطباعة النطاق المطلوب في الصفحة المقصودة ارجو ان يفي بطلبك Sub SAMA_PRINT_HIDE() Sheets("Sheet2").Visible = True Sheets("Sheet2").PageSetup.PrintArea = "A1:K30" Sheets("Sheet2").PrintOut Sheets("Sheet2").Visible = False End Sub ويجب عليك اخي الكريم عند كل سؤال او طلب ارفاق ملف كمثال لتوضيح الصورة اكثر للجميع في انتظار ردك .... تقبل خالص تحياتي طباعة شيت مخفي بزر في الرئيسية.rar

السلام عليكم الاخ الحبيب / ؛ أحمد النجار ؛ بارك الله فيك دائما تقدم مواضيع وشروحات مميزة جعلها الله في ميزان حسناتك تقبل خالص تحياتي

السلام عليكم الاخ الكريم / سيد رجب بارك الله فيك اولا اخي الكريم ... لا تقلق من كثرة الاسئلة فكلنا هنا لنتعلم ونعلم بعضنا البعض ابتغاء مرضاه الله ولكن يجب فقط الالتزام بقواعد المنتدي ووضع كل سؤال او استفسار في مكانه الطبيعي او في موضوع جديد بعنوان واضح وانا معك ان شاء الله في كل اطلباتك ما دامت في حدود علمي اما بالنسبة لطلبك الاخير شاهد اخي الصورة التالية .. او ارجع للشرح في الدروس لاظهار الباسورد عند الادخال علي هيئة اشكال او رموز كما تريد تقبل خالص تحياتي

شاهد الرد علي الرابط التالي ( المشاركة رقم 283 # ) طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة او من هنا مباشرة http://www.officena.net/ib/index.php?showtopic=45232&page=15 تقبل خالص تحياتي

بارك الله فيك والاجابة (( العلوي )) ؟؟؟

بارك الله فيك والاجابة (( العلوي )) ؟؟؟

السلام عليكم الاخ الكريم / سيد رجب بارك الله فيك قمت بعمل كل شئ مضبوط تماما ولكنك نسيت اهم ما افي الموضوع وهو وضع الكود التالي في حدث فتح الملف ThisWorkbook وهو الخاص باعطاء الامر للملف بفتح الفورم اولا عند فتح الملف Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True ورقة1.Select End Sub في الملف المرفق ستجد الكود موجود في حدث ThisWorkbook مشروحا بالكلمة او عد للشرح في الدروس الاولي وستجد انها مشروحه خطوة خطوة وفي انتظار ردك ارجو ان يفي ذلك بطلبك تقبل خالص تحياتي اجازات الموظفين4.rar

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك الحمد لله انك اهتديت لما تريد وكما طلبت اما بالنسبة لطلبك الثاني فأظن ان ذلك لا يمكن عمله بالاكواد في ملف الاكسيل حيث ان الكود لا يعمل الا اذا تم فتح الملف ولكن علي ما اظن انه يمكنك عمل ذلك اما باستخدام مهمام الويندوز نفسه او احد البرامج المخصصة لذلك او تصميم برنامج آخر علي الفيجوال بيسك مثلا للقيام بهذه المهمة ولكن لتبسيط الامر بعض الشئ شاهد الرابط التالي ان شاء الله سيفيدك فهو للقدير / عباد ... جزاه الله خيرا http://www.officena.net/ib/index.php?showtopic=41389&hl=%2B%D9%81%D8%AA%D8%AD+%2B%D9%85%D9%84%D9%81+%2B%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D9%85%D8%AD%D8%AF%D8%AF تقبل خالص تحياتي