احمدزمان

الأستاذ وائل جزاء الله عنا خير الجزاء ونسأله ان يكافئك بالجنة

الأستاذ وائل شكرا جزيلا وجزاك الله خيرا

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

شكرا لك اخ خبور وجزاك الله الف خير

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

السلام عليكم و رحمة الله الاستاذ محمد عسكر الاستاذ GHMN7174 بعد اذنكم هذه فكرة اخرى للدليل ارجو انتنال رضاكم وان يكون فيها الفائدة لطلب savvy وللجميع تحياتي tele.rar

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

اهداء من معد هذه الشرائح الى جميع الإخوة مرتادين المنتدى اسأل الله العلي العظيم ان يكون فيها الفائده للجميع واسأله تعالى ان يمن على معدها بالأجر العظيم alejzhh.rar

شكرا لكم جميعا بارك الله فيكم

ابو اسامة نسأل الله العلي العظيم ان يحسن البيك من فضله - كما تحسن الينا الله معك

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

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

اخواني الأعزاء شكرا على اهتمامكم

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

الأخ العزيز السلام عليكم نقلا عن الأستاذ في المنتدى/ tameromar اليك وجهة نظره لحل المشكلة كما كتبها في اكواد VBA ارجو ان تكون فيها الفائدة لك حل مشكلة اعتراض حماية اورق الملف لتنفيذ الماكرو هو الحل النهائى لهذه المشكلة والتى لايأتى بعده حلول نهائيا . كما نعرف جميعا انه عند حماية اوراق الملف وعند تنفيذ ماكرو به بعض الاوامر يتم اعتراض تنفيذها نتيجة الحماية ودائما الحل فى الدواء المكرر والمعاد دائما وهو رفع الحماية فى بداية عمل الماكرو ثم وضعها مرة اخرى فى نهايتة ولكن الحل هنا فى منتدى الاكسيل لاول مرة على مستوى المنتديات . وعلى سبيل المثال لا الحصر لهذه الاوامر التى تسبب توقف عمل الماكرو ادراج او الغاء صفوف او اعمدة تغير لون الخلية او لون الخط والكثير من الاحداث الاخرى التى تتوقف بسبب الحماية . فيلجأ البعض منا مما له دراية بالاكواد بعمل عدد 2 ماكرو منفصلين الاول يعمل على تنفيذ الحماية والثانى يعمل على الغاء الحماية ثم عند تصميم اى ماكرو يقوم بوضع اسم الماكرو الاول فى بداية المكرو الذى يقوم بتصميمة ويضع اسم الماكرو الثانى فى نهاية الماكرو الذى يقوم بتصميمة بمعنى فى حالة اعترض الحماية يجب رفع الحماية فى بدية الماكرو ثم اعادة وضع الحماية مرة اخرى فى نهاية هذا الماكرو حتى يتم تنفيذ هذا الماكرو بدون اعتراض . ولكن الاكسل وفر لنا الكثير والكثير ولكن العقبة هى عدم الوصول الى هذه المعرفة وكثرت مشاكل اعتراض الحماية لتنفيذ الماكرو الذى يحتوى على بعض الاوامر التى اشرت اليها فى بداية الحديث ولكن توجد اضافة لامر الحماية لم الحظ ان احدا يقوم بأستخدامها وهى الامر كود UserInterfaceOnly:=True التى توضع فى امر الحماية ويمكن بذلك تنفيذ اى ماكرو بدون اعتراض مسيو اكسيل وبخصوص هذا الامر عند حفظ الملف تفرض الحماية كاملة وينهى عمل هذا الاستثناء وعليه عند فتح الملف يجب الاعلان عن ان الحماية مشمولة بهذا الامر ولذلك يجب ادراج كود الحماية بأحد هاتين الطريقتين : اولا : اما عن طريق ماكرو التنفيذ التلقائى عند الفتح الذى ينفذ اى اوامر مدرجة به عند فتح الملف كود Sub AUTO_OPEN() ثانيا : عن طريق حدث فتح الملف الاتوماتيكى الذى ينفذ اى اوامر مدرجة به عند فتح الملف كود Private Sub Workbook_Open() فأذا اردنا ان يكون كود الحماية فى ماكرو الفتح (Sub AUTO_OPEN) يكون الماكرو على هذه الصورة بفرض ان كلمة السر هى (123) كود Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub اما اذا اراد المترسين بالاكواد بوضع كود الحماية فى حدث فتح الملف يكون على الشكل التالى بفرض ان كلمة السر هى (123) كود Private Sub Workbook_Open() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub بذلك يمكن تنفيذ اى ماكرو بدون اعترض وتتجنب تكرار فك الحماية فى بداية الماكرو ثم اعادتها مرة اخرى فى نهاية الماكرو مع تحياتى فى استخدام الاوامر التى لم نتطرق اليها قبل ذلك لاثراء معلوماتنا ومنتدانا بكنوز الاكسيل تم تحرير المشاركة بواسطة tameromar

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

الأستاذ الكبير ابو تامر السلام عليكم مبدع جدا جداا وجزاك الله خيرا وسبحان الذي علمك اكثر مماعلمنا ((وانما يخشى الله من عباده العلماء)) جعل الله هذا في ميزان حسناتك

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

شكرا جزيلا اخ اكسلجي ولك كل احترام على هذا العمل الكبير

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

شكرا يا أخ خضر

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

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

ان الله مع الصابري ولكن اذا صبرو

شكرا لكم