هل يمكن عمل فرز للبيانات مع وجود حماية للصفحة

[حاتم عيسى]

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

هل يمكن عمل فرز للبيانات مع وجود حماية للصفحة

مرفق الملف المطلوب التعامل معه

كلمة سر فك حماية الـ VBA هى  Hatem

وشكرا لكم جميعا

كشف المتقدمين للصف الأول 2015 2016.rar

تم تعديل أغسطس 17, 2015 بواسطه حاتم عيسى
إرفاق الملف

[خالد الرشيدى]

تفضل اخى الكريم

المطلوب بالمرفق على حسب ما فهمت

ملحوظة :- لقد تم التعديل على اكواد الفرز المستخدمة فهى منشئه بواسطة تسجيل ماكروا وبها اجراءات عديدة لا تمثل شئ فى عمل الكود

 كشف المتقدمين للصف الأول 2015 2016.rar

 

 

 

 

تم تعديل أغسطس 17, 2015 بواسطه خالد الرشيدى

[حاتم عيسى]

أولا : أتقدم بخالص الشكر والتقدير للأستاذ : خالد الرشيدى

على سرعة الرد وتم عمل اللازم .

ثانيُا : أخي الفاضل وكل المشرفين والرواد الأفاضل :
تم إخفاء شريط القوائم ولا أعرف كيف تم ذلك .

فهل هناك طريقة لإظهار شريط القوائم مرة أخرى على الأوفيس 2003 ( أكس بي )

ولجميع حضراتكم جزيل الشكر والتقدير

[خالد الرشيدى]

اخى الكريم

قم بتحديد هذا الموضوع كمجاب .. وقم بطرح سؤالك فى موضوع جديد تحت عنوان معبر عن السؤال

وان شاء الله تجد المساعدة

تقبل تحياتى

[حاتم عيسى]

شكرا لحضرتك على توجيهاتك

ولكن معذرو عند تجدرب ةالملف وجد هناك خطأ بسيط وهو عند ترتيب الأسماء أبجديًا يدخل البنات مع البنين في الابجدة

المطلوب بعد إذن حضرتك ترتيب الذكور جميعًا أولا ومن ثم ترتيب الإناث .

ولحضراتكم جميًا جزيل الشكر والعطاء .

تم تعديل أغسطس 18, 2015 بواسطه حاتم عيسى

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

أخي الكريم حاتم

صراحة تصميم الورقة سيء للغاية .. لا تستعجل الحكم على أخوك واعرف السبب

إذا كنت ستتعامل مع الأكواد فابتعد عن دمج الخلايا

اطلعت على ورقة العمل فوجدت الدمج أمر وارد في كل أنحاء الورقة وكأنك تعشق الدمج ..لما لا تقوم بتوسيع عرض العمود بدلاً من الدمج ..

حاولت صياغة الأكواد ولكن تظهر الأخطاء بسبب الدمج

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

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

وقتها سيكون الحل ولا أيسر

[خالد الرشيدى]

اخى الكريم

ليس خطأ وانما عندما وضعت الكود جعلت الترتيب وفقاً لعمود الاسماء فقط ولكن ان اردت الترتيب وفقاً لعمودى الاسماء والنوع

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

 كشف المتقدمين للصف الأول 2015 2016.rar

 

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

أخي الكريم حاتم

محرر الأكواد محمي وأوراق العمل محمية .. .... ... راجع موضوع التوجيهات

أخي الغالي خالد

ما هو الكود ..أنا تهت في محرر الأكواد ..من كثرة الموديولات

يفضل إرفاق الكود في المشاركة إذا أمكن

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

الملف دا تعبني ..والله

 

 

[خالد الرشيدى]

استاذى الحبيب ياسر خليل

رمز مرور الاكواد كما تم زكرة فى السؤال Hatem اما عن حماية ورقة العمل

فانا من قام بحمايتها بكود افتراضى  111  حتى يرى الاخ حاتم كيف انه يلغى الحماية قبل الكود ثم يعيد حمايتها فى نهاية الكود استجابة لاستفسارة

اما عن الموديول الذى تم العمل علية هو موديول 17

Sub ÃÈÌÏí_2016()

   ActiveSheet.Unprotect "111"
   
   Application.ScreenUpdating = False
   
    Range("B6:BC265").Sort Key1:=Range("H6"), _
      Order1:=xlDescending, Key2:=Range("N6"), Order2:=xlAscending, _
      Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
      Orientation:=xlTopToBottom
    
    ActiveSheet.Protect "111"
    
    Application.ScreenUpdating = True
End Sub

 

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

بارك الله فيك أخي الحبيب خالد

إليك اختصار لكود الترتيب ..

Sub SortData()
    Application.ScreenUpdating = False
        Dim LR As Long
        ActiveSheet.Unprotect "111"
            LR = Range("N265").End(xlUp).Row
            Range("B6:BC" & LR).Sort Key1:=Range("H6:H" & LR), Order1:=xlDescending, Key2:=Range("N6:N" & LR), Order2:=xlAscending, Header:=xlNo
        ActiveSheet.Protect "111"
    Application.ScreenUpdating = True
End Sub

 

[خالد الرشيدى]

             استاذى الحبيب  ياسر خليل

مش غريب على حضرتك الابداع  ...   جزاك الله عنا خيرا

                 خالص حبى وتقديرى

[حاتم عيسى]

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

أولا : أتقدم بخالص الشكر والتقدير لحضراتكم جميعًا ولجميع القائمين على المنتدى الغالي .

ثانيًا : أستاذي الفاضل : ياسر خليل أبو البراء إنما لجأت إلى دمج الخلايا حتى أستطيع عمل الإحصائية الموجودة أسفل الورة . ولو هناك حل لتلك المشكلة أكون شاكر جدا لحضرتك ( عمل الإحصاء أسفل الورقة دون دمج خلايا ) .

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

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

[حاتم عيسى]

أستاذي الفاضل : ياسر خليل أبو البراء تحية طيبة وبعد

فكرة جيدة عمل الإحصائية في صفحة جديدة

ولكن هل من الممكن طباعته في أخر صفحة من البيانات ؟

عند الرد بنعم أرجو من حضرتك توضيح كيفية ذلك ويكون هذا أفضل ويتم حذف الأعمدة التي ليس لها فائدة وأقوم بمسح الدمج

وشكرا لحضرتك أستاذي الفاضل .

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

لم أفهم المقصود من طباعته في آخر صفحة من البيانات

يمكن أن تتم طباعة الإحصائية في ورقة مستقلة لما تريدها في نفس الورقة ..

حاول أن توضح أكثر لأن الصورة لم تتضح بشكل كامل لدي

[حاتم عيسى]

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

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

ولسيادتكم جزيل الشكر والتقدير .

مرفق الملف المطلوب التعامل معه.

كشف المتقدمين للصف الأول 2015 2016.rar