جميع شيتات المرحلة الاعدادية والثانوية الازهرية بقسميها الادبي والعلمي

[محمد ابو البـراء]

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

بعد الحمد لله والصلاة والسلام على رسول الله

وبعد

وبعد طلب بعض الاخوة جزاهم الله خيراً بعمل شيتات للمراحل الازهرية

قررت مستعينا بالله ان انزل جميع الشيتات الخاصة بالازهر للمرحلتين الاعدادية والثانوية ،،

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

قررت ان انزل جميع الاصدارات مجمعة في فولدر واحد لسهولة الحصول عليها جميعا..

للتحميل اضغط على

 

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

للتحميل النسخة المحمية اضغط على

والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته

 

 

 

 

[محمود_الشريف]

أخى فى الله

الأستاذ الحبيب // محمد ابو البراء

بارك الله فيكم

أسأل رب العباد أن يجعل جميع أعمالكم فى ميزان حسناتكم

مجهود أكثر من رائع 

دمتم فى أمان الله وحفظه

تقبل منى وافر الإحترام والتقدير

[محمود_الشريف]

أخى الحبيب

هل لى أن أطلب منكم طلبين 

وهذه وجهة نظرى الخاصة

 

الأول / إضافة كود إجبار المستخدم على خفض أمان الماكرو حتى تكون للأكواد والحماية بعض الحماية الفعاله

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

ولا يمكن للمستخدم الاطلاع على باقى الشيتات 

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

الثاني / وضع باس وورد لمحرر الفيجوال بيسك للنسخة المحمية 

حيث لا يخفى عليك أخى الحبيب

أنه لا توجد حماية فعاله لملفات الأكسل 

 

وهذه وجهة نظرى مع الاحتفاظ بالنسخ المفتوحه المصدر كما هى

 

وتقبل منى وافر الاحترام والتقدير

[محمود_الشريف]

وهذا هو الكود المستخدم لهذا الغرض 

يوضع فى حدث الملف ThisWorkbook

مع انشاء شيت يسمى  Macros

يدون بالشيت طريقة خفض امان الماكرو لمشاهدة محتوى الملف والتعامل معه

Const WelcomePage = "Macros"
Private Sub HideAllSheets()
    Dim ws As Worksheet
    Worksheets(WelcomePage).Visible = xlSheetVisible
    For Each ws In ThisWorkbook.Worksheets
        If Not ws.Name = WelcomePage Then ws.Visible = xlSheetVeryHidden
    Next ws
    Worksheets(WelcomePage).Activate
End Sub
Private Sub ShowAllSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If Not ws.Name = WelcomePage Then ws.Visible = xlSheetVisible
    Next ws
    Worksheets(WelcomePage).Visible = xlSheetVeryHidden
End Sub

تقبل منى وافر الإحترام والتقدير

[أم عبد الله]

الأستاذ الفاضل / محمد أبو البراء

 

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

 

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

[محمد ابو البـراء]

الاستاذ الحبيب // محمود الشريف

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

وهذه طبيعتك دائما سباق بالخير

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

واما بالنسبة لموضوع الحماية

لا اخفي عليك سراً لا اعلم كيفية الحماية

لاني وبجد رغم وجود موضوعات كثيرة تعلم الكيفية

لم افكر يوما ان اتعلم كيف اخفي شي مما تعلمته..

واما بالنسبة للملفات المحمية

انا لم اقصد حمايتها لاي سبب

الا بعد رغبة احد الاخوة من عدم العبث في المعادلات..

[محمد ابو البـراء]

الوالدة الفاضلة // أم عبد الله

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

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

دائما سباقة بالتحفيز والثناء والمساعدة والدعاء

فجزاكم الله خيرا وجزاكم بمثل ما دعوتم..

ورزقكم بر ابنائكم واحفادكم بإذن الله تعالى..

[محمود_الشريف]

أخى فى الله

الأستاذ الحبيب // محمد ابو البراء

المعادلات محمية بالأكواد

ولكن فى حاله عدم خفض أمان الماكرو لا قيمة لكود حماية المعادلات

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

تقبل منى وافر الاحترام والتقدير

[محمد ابو البـراء]

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

الاخ الحبيب محمود جزاكم الله خيراً على هذه المعلومة..

ثم لا اخفي عليك سرا

فانا وبصراحة لا افهم هذه الجزئية

والخاصة برفع الامان او خفضه

وما اعلمه انني اقوم بعمل تمكين للمكرو  او عدم تمكين

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

[الغالي وليد]

اولا : جاري رفع الملفات

 

ثانيا : نحمد الله الذي لا يحمد علي مكروه سواه

 

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

 

ثالثا : الاخ الغالي محمود الشريف - الاخ الغالي ابو البراء

 

ممكن حضراتكم تنسقو مع بعضكم البعض وان يتم اعطاء الاستاذ محمود باسورد الحماية ليفعل هو ما يريده علي اكمال الشيت من الحمايه

 

وفي النهايه الجميع يريد الصالح العام

 

وفقكم الله لما فيه الخير ونشكر الجميع

[محمد ابو البـراء]

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

تنويه في غاية الاهمية

وبعد نزول جميع شيتات المرحلة الاعدادية والثانوية الازهرية بقسميها

وبعد الحصول على جميع معلومات المرحلة من

الاستاذ // عبد الموجود بدر

والاستاذ // الغالي وليد

وبعد بدء التنفيذ وتنزيل الملفات

اتصل عليَّ الاستاذ // عبد الموجود بدر

واضاف جزء قانوني لم يتم توضيحه قبل التنفيذ

هو

ان الطالب الذي حصل على 25% من مواد الترم الاول لا يعد راسبا

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

ولكن

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

بمعنى انه يمتحن الترم الثاني في جميع المادة

وتكتب هذه الدرجة له

واوضح ذلك بمثال

لو في مادة الفقه

حصل الطالب في الترم الاول على 4 من 20

وهذه الدرجة اقل من الــ 25%

يعتبر هذا الطالب راسب في الترم الاول

ويتم التعامل مع هذا الطالب كالتالي

يمتحن الطالب في المادة جميعها ( ترم اول وترم ثاني )

وتكون الدرجة من 40 بدلا من 20 ويتم وضع هذه درجة الترم الثاني

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

 

اما لو ضريت مثال لطالب  نجح الترم الاول

لو حصل على 5 من 20

فهو بالتالي ناجح الترم الاول

ويتم دخوله الترم الثاني ويمتحن في الترم الثاني فقط

اي من 20

فلو حصل مثلا على 15

تكون الدرجة النهائية هي  ( الترم الاول ) 5 +  ( الترم الثاني ) 15 = يكتب له 20 في المجموع

وبناءاً عليه

فان جميع الشيتات التى ارسلتها على هذا الكلام لا تصلح !!

ولله الحمد تم معالجة بعض الشيتات وباقي تعديل اليسير وسوف يتم رفعه بإذن الله تعالى..

والله ولي التوفيق..

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

[عبدالموجود بدر]

استاذي الفاضل /أبو البراء                           السلام عليكم ورحمة الله وبركاته

 - جزاك الله خيرا يا أخي الفاضل علي المجهود الرائع 

            وجعله الله في ميزان حسناتك 

 -  الاخ شاكر بيرصد حاليا في الشيتات الخطأ الي ان يتم تنزيل الشيتات الصحيحة 

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

          فأكرر اسفنا وعتزارنا فنحن تعبناك وكان المفروض نعطيك المعلمة كاملة

          أكرر أسفي واعتزاري ولكن اين الشيتات الحديثه................!

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

[محمد ابو البـراء]

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

وعذركم مقبول ولا داعي له

واما الشيتات فهي على هذا الرابط

[بعد التعديل] جميع شيتات المرحلة الاعدادية والثانوية

[عبدالموجود بدر]

أرجو من الاخوة الزملاء من لديهم خبر في عمل شيت كنترول 

  ان يكمل عمل شيت كنترول الازهر الثانوي