ياسر خليل أبو البراء

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

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

بارك الله فيك أخي الكريم جلال أعتقد العنوان يحتاج لمراجعة ..إذ أن الحلول المقدمة تسمح بوجود فراغات في القائمة المنسدلة .. بينما في وجهة نظري أن العنوان يعود لأمر آخر وهو عدم ترك خلايا فارغة في العمود الأول .. وهذا ظاهر في الملف الثاني والثالث حيث يوجد كود في حدث تغير ورقة العمل يقوم بحذف الصف في حالة أن خلايا الصف فارغة .. تقبل تحياتي

بارك الله فيك أخي الكريم جلال وجزيت خيراً صراحة الأعمال التي قدمها العمالقة أمثال الحسامي رحمه الله تحتاج لدراسة وفي بعض الأحيان تنقيح بسيط .. جربت الملف إذ أنني لا أحب أن أحمل الملف وحسب بل أقوم بالإطلاع عليه ودراسته دراسة متأنية للاستفادة منه قبل نقده وإذا تطلب الأمر تعديل أذكره لكي يستفيد الجميع هناك شرط إدخال البيانات غير سليم في الكود المقدم .. راجع الملف مرة أخرى وستتأكد من ذلك ولذا يجب التعديل على الشرط بالشكل التالي If (([U1] = 1 Or [U1] = 2) And a1 = "") Or (([U1] = 3 Or [U1] = 4) And (a1 = "" Or a2 = "")) Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Exit Sub End If تقبل تحياتي

إليك إيميلي على الفيس بوك yakh777@yahoo.com تقبل تحياتي

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

عوداً حميداً أخي الغالي جعفر وكل عام وأنت بخير مختفي عنا بقالك فترة لعل غيابك عنا خير إن شاء الله .. بارك الله فيك وجزاك الله خيراً على الموضوع الرائع وجاري التحميل والتجربة ** تمت التجربة وفي الحقيقة يعجز اللسان أمام هذه الروائع .. كل عام وأنت وكل أعضاء أوفيسنا الكرام بخير تقبل وافر تقديري واحترامي

نفس المشكلة حتى بعد إغلاق الأنتي فيروس رغم خطورة ذلك

وعليكم السلام أخي الكريم عمران ما هي رسالة الخطأ التي تظهر لديك عند التعديل على الملف ؟ أو ماذا يحدث بالتفصيل؟ وهل جربت نفس الملف على جهاز آخر فربما تكون الأوفيس لديك بها مشكلة أو الويندوز قد يكون الملف للقراءة فقط Read-Only أو يوجد أكواد تمنع عملية التعديل عند الحفظ ... الاحتمالات كثيرة !! حاول ترفع الملف على موقع رفع خارجي للإطلاع عليه ولتجربته

الملف تالف ويعطي الأنتي فيروس أن هناك Maleware (ما علينا فيه) .. ولكن عند فتح الملف التنفيذي يعطي خطأ

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

وعليكم السلام أخي محمد ملفك يعمل بشكل ممتاز ولا مشكلة فيه عندي حاول توضح ما هي رسالة الخطأ التي تظهر لديك؟ انقر على كلمة Debug ثم انسخ سطر المشكلة إلى المشاركة أو صور المشكلة لتتضح الصورة الخطوات التي قمت بها صحيحة إن شاء الله والكود يعمل وإليك الدليل 2016-09-08_07-06-01.rar

بارك الله فيك أخي الكريم عز أبو أنس .. وجزيت خير الجزاء أخي الغالي حسام : رسالة لحبيب غائب ليوم القيامة (غبت عنا لكن أعمالك خالدة .. فاللهم اجعلها في ميزان حسناتك يوم القيامة اللهم آمين)

أخي الكريم أحمد جربت الرابط ويعمل بشكل صحيح ..اعمل كليك يمين على الرابط ثم Open in New Tab وانتظر 5 ثواني ثم انقر على Skip Ad في أعلى يمين الصفحة وستجد الكود بعدها إن شاء الله عموماً الحمد لله أن تم المطلوب بخير والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

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

بارك الله فيك أخي الكريم محمد الدسوقي على هذه الإبداعات .. ولكن لاحظ أنك اعتمدت أن عدد الطلاب ثابت وهو 60 طالب لكل فصل جرب تغير في البيانات الرئيسية لبعض الطلاب وليكن 1/1 .. اختار شوية من الفصول التانية وخليهم 1/1 .. وشوف القوائم هتكون مضبوطة أم لا تقبل تحياتي

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

وعليكم السلام أيها النجم الساطع محمد الدسوقي بارك الله فيك وجزاك الله خيراً .. موضوع رائع وممتاز والحمد لله أن كان موضوعي في المدونة محفز لكم لتخرجوا الطاقات الإبداعية الكامنة تقبل وافر تقديري واحترامي

أخي الكريم عزيز إليك الرابط التالي فيه شرح مفصل لما ستقوم بعمله للحصول على المطلوب .. لاحظ فقط في الكود المقدم لك في الموضوع ستقوم بتغيير اسم ورقة العمل من Sheet1 إلى Sheet2 .. حيث أن ورقة العمل لديك في الملف المرفق باسم Sheet2 الموضوع بالكامل مع ملف مرفق مع شرح لما يتم في الكود بشكل عام في هذا الرابط تقبل تحياتي

أين العريس ؟ غاب عنا في فرحة عرسه .. أهذا يجوز؟ إلى الأمام أخي الغالي سليم

أخي الكريم أحمد فهمت من مشاركتك أنك ستقوم بتحديد أوراق عمل معينة باستخدام مفتاح Ctrl مثلاً لتحديد تلك الأوراق وعمل استثناء لها أي أنها لا تدخل في نطاق أوراق العمل المراد حمايتها .. مثال : نفترض أنك قمت بتحديد أوراق العمل (الرئيسية ، ورقة2 ، ورقة3 ، ورقة4) ،وتريد عمل حماية لأوراق العمل (ورقة1 ، ورقة5) ..أي تريد استثناء الأوراق المحددة من الحماية .. جرب الكود التالي لعله يفي بهذا الغرض (إن كان هذا طلبك) رابط الكود من هنا

أخي الكريم أحمد جربت الملف المرفق وكلا الكودين يعملان بشكل صحيح وتتم الحماية لجميع الأوراق بلا استثناء وعند فك الحماية يتم فك الحماية لجميع أوراق العمل بلا استثناء .. حاول توضح المشكلة بالصور ، وهل يحدث معك خطأ من نوع معين كرسالة خطأ أو ما شابه؟ قرأت المشاركة مرة أخرى ولربما يكون هذا ما تقصده Sub protectclose() Dim a As Worksheet For Each a In Worksheets If a.Name <> "ورقة1" And a.Name <> "ورقة2" And a.Name <> "ورقة3" Then If a.ProtectScenarios = False Then a.Protect "1111" End If End If Next a End Sub هذا كود الحماية لجميع الأوراق ما عدا أوراق العمل المحددة في سطر في الكود وهي ورقة1 ، ورقة2 ، ورقة3

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

إذاً كود الأخ أبو حنين أدى الغرض والحمد لله ... الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

الحمد لله أن تم المطلوب على خير .. تذكرة ايه اللي بتتكلم عليها؟ تذكرة قطار أم تذكرة سينما أم تذكرة طيران أم تذكرة للحج ....؟