يوسف عطا

للرفع رفع الله قدركم

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

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

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

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

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

مؤخراً أصبحت أجد هذا السطر يتكرر فى أعلى الأكواد ولا أعرف هل هو فعلاً جزء من الكود أم ماذا ؟؟ الرجاء التوضيح Option Explicit

بخصوص ملف الريجسترى فأعتقد والله أعلم أن به تكة صغيرة ليتوافق مع كل أنواع إصدارات الأوفيس وقد سبق للأخت فرحة منذ عدة سنوات أن تناولت الموضوع وأوضحت حسب ما أتذكر أن كل إصدارة من إصدارات الأوفيس لها رقم مميز يوضع فى ملف الريجسترى تقريباً أوفيس 97 له رقم 1 و أوفيس 2000 له رقم 2 وأوفيس إكس بى له رقم 3 و أوفيس 2003 له رقم 4 واشياء من هذا القبيل ولا أذكر بالضبط الأرقام والإصدارات أنا بخصوص إصدارة الويندوز فملف الريجسترى يعمل مظبوط على ويندوز 7 وهذا عن تجربتى والله أعلم

الله ينور عليك يا استاذ جلال لكن مش ده بالظبط إللى أنا عايزه المطلوب أن يعمل الكود تلقائياً بدون زر وتتغير الدوائر تلقائياً حسب تغيير الدرجات مع تغيير الشهادة حيث أن الطباعة تتم تلقائياً ولكن الكود الذى أرفقته سيادتكم سيتطلب منى الآتى 1. أن اقوم بإضافة الدوائر يدوياً بالضغط على الزر عند طبع كل 3 شهادات على حدة 2. ثم أقوم بإختيار الثلاث شهادات التالية ثم أزيل الدوائر عنها لأن الدوائر لن تكون مضبوطة على الدرجات 3. ثم أضع الدوائر مرة أخرى على الثلاث شهادات 4. ثم اضغط زر لطباعتها واقوم بإعادة هذه العملية 350 مرة لطبع 1111 شهادة على كل حال شاكر أفضال معاليكم وأتمنى أن تحاول معى الوصول للمطلوب دمت بود أخى الغالى وجعل الله أعمالك فى ميزان حسناتك

الرجاء من الأخوة الأعزاء كود سهل وبسيط لوضع الدوائر الحمراء فى الشهادات وكما هو واضح فى الملف كل شيت يحتوى على 3 شهادات والدرجات توضع بالشهادات عن طريق معادلة فى لوك اب والداتا فى شيت الشهادات مربوطة بشيتات أخرى وإكتفيت برفع شيت الشهادات فقط لكبر حجم الملف الإجمالى وبطؤه فى تنفيذ الأوامر حالياً أعتمد على التنسيق الشرطى لتظليل الخلايا التى بها درجات رسوب ولكنى أريد أن يكون العمل أكثر إحترافية بوضع دوائر على الدرجة الراسبة والإستغناء عن التنسيق الشرطى الـ 60 طالبة الأوائل ناجحات كل 60 طالبة بعد ذلك راسبات فى مادة بالترتيب 60 راسبات عربى 60 بعدهم راسبات إنجليزى وهكذا مشكورين مقدماً شهادات.rar

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

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

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

ولإثراء الموضوع يمكن غستخدام السطرين التاليين الاول يوضع فى بداية الكود والثانى فى نهايته ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.Unprotect على اساس ان لا يطلب منك وضع باسوورد فلعلك لا تريد لمن يستخدم الكود ان يضع باسوورد

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

البقاء لله اسكنها الله فسيح جناته وألهم أهلها الصبر والسلوان

السلام عليكم اخوتى الاعزاء اعتقد تم طرح الموضوع من قبل ولكنى بالبحث عنه لم استدل عليه كما اعتقد ان القضية لم تحسم نهائياً فى الموضوع المذكور المهم المطلوب كود يوضع فى حدث فتح الملف يقوم بتخفيض مستوى الأمان برمجياً دون أن يشعر المستخدم وذلك لكى تعمل أكواد الحماية بالملف تلقائياً حتى لو كان المستخدم رافع مستوى الأمان لأى درجة وربما يكون من المفيد أن يتم إعادة مستوى الأمان لما كان عليه تلقائياً عند غلق الملف من باب الامانة لكن خلينا الاول فى الجزء الأول من الفكرة وللأخوة المهتمين بمحاولة تنفيذ الموضوع ولهم خبرة فى الريجيسترى إسمحوا لى أن أنقل لكم بعض خبرات اساتذة قدامى فى المنتدى أدلوا بدلوهم فى هذا الموضوع علماً بأن الموضوع لم يفصل فيه بعد طرح للموضوع منذ عام 2003 http://www.officena....hp?showtopic=25 طرح للموضوع منذ عام 2004 http://www.officena....?showtopic=4393 طرح للموضوع منذ عام 2006 http://www.officena....showtopic=14801 ومن هنا إسمحوا لى أن أعيد طرح الموضوع لعلنا بعد مرور 7 سنوات ونحن على مشارف عام 2013 أن يمكننا الله من التوصل لحل للموضوع المرفقات المرفقة هى من الموضوعات المذكورة أعلاه أبو هادى SecurityLevel.rar security2 محمد طاهر.rar

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

يمكنك عمل ماكرو يتم فى بدايته فك الحماية ثم الفرز والتصفية ثم إعادة الحماية مرة أخرى

الف شكر يا غالى الله ينور عليك

حاضر يا غالى هارفق الملف حالاً وبعد إذنك هاطلب طلب تانى لو تقدر فى الشيت رقم 31 جدولين مطلوب فيه وضع أعداد الراسبين فى كل مادة حسب إسم الفصل علماً بأن إسم الفصل موجود فى العمود FV فى الشيت رقم 7 ودرجات الطلبة فى نفس الشيت فى أعمدة متعددة لو حضرتك عملت المعادلة لمادة واحدة مثلاً اللغة العربية فى الخلية E8 فى شيت 31 المطلوب وضع أعداد الراسبين الموجودين فى شيت رقم 7 فى العمود L إللى درجتهم أقل من 20 وطبعاً الشرط إن يكونوا فى الفصل رقم 1 إللى هو موجود فى العمود FV فى الشيت 7 أنا هحاول أطبقها على باقى المواد فى باقى الفصول فى الترمين أما بالنسبة لكود الترحيل اللى شغالين عليه من أول المشاركة فهو فى موديول رقم 6 ترحيل_د2 وزر تشغيله فى صفحة 23 ومفروض يقوم بالترحيل لشيتات رقم 24 و 25 و 26 مع عمل سلسلة للبيانات المرحلة وإستخراج إحصاء لها أنا عارف إن الملف ده مزعج وربنا يقدرنى وأخلصه بسرعة بفضل معونتكم وباقى الأساتذة للتمكن من تجربته والتأكد من دقة نتائجه قبل العمل عليه علماً بأن الملف ثقيل ويحفظ التعديلات ببطئ فالرجاء كن صبوراً معه وهو إصدار أوفيس 2003 إسم المستخدم يوسف الباسوورد 111 تم ضغط الملف مرتين للتمكن من رفعه مباشرة هنا New folder.rar

الف مبروك على الترقية هى تستحقكما وأنتما تستحقانها فهنيئاً لها بكما و هنيئاً لكما بها

مع الأسف لم يعمل الكود بعد التعديل

الف شكر رجب بك جارى التجربة

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