عادل حنفي

السلام عليكم اخي rasm052002 بارك الله فيك تحياتي

السلام عليكم الاخت الفاضلة المرفق سيتم التعامل معه كالتالي اولا الكود الموجود بالملف هو Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 Then Exit Sub Application.EnableEvents = False Range("e3:e14") = "" Range("e3:e14").Interior.ColorIndex = xlNone Application.EnableEvents = True n = 1 For i = 3 To 14 If Cells(i, 1).Interior.ColorIndex <> xlNone Then Application.EnableEvents = False Cells(i, 5) = n Cells(i, 5).Interior.ColorIndex = 15 Application.EnableEvents = True n = n + 1 End If Next End Sub و سيتم العمل به لمجرد تحديد اي خلية بالعمود الاول فعند عمل لون معين لخلية الاسم سيتم مسح محتويات و الوان العمود الخامس و البحث من جديد علي كل خليه بها لون في العمود الاول و اعطائها رقم بالترتيب مع تظليلها بلون معين و ذلك في العمود الخامس فقط غيري لون خلية الاسم و اضغطي علي انتر و طبعا لو انك غيرتي لون الخلية الي بلا لون سيتم خرجها من الترتيب و لن تعطي رقم و لن تظلل في العمود الخامس جربي الملف و اخبريني النتيجة تحياتي ترقيم المظلل1.rar

السلام عليكم اخي الحبيب احمد بارك الله فيك و في ابو تامر خالص تحياتي

السلام عليكم تسلم الايادي اخي الحبيب عماد مجموعة تستحق الاقتناء تحياتي

السلام عليكم اخي Kemas بارك الله فيك و بارك الله في مجهودك تحياتي

السلام عليكم اخي الحبيب احمد يعقوب تسلم الايادي تحياتي

السلام عليكم اخي اجعل الكود بهذا الشكل Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub تحياتي

السلام عليكم اخي الحبيب الحسامي بارك الله فيك و في اعمالك وجزاك الله بها كل خير خالص تحياتي و تقديري

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

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

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

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

السلام عليكم اخي الحبيب ابو عبد الله اولا مرحبا بك بعد غيبة و من رايي ان هناك بعض الناس من اعمدة المنتدي مهما غابوا فاثرهم بالمنتدي لاينسي و روحهم التي اكسبوها لكل عضو بالمنتدي (و هذا هو لب الموضوع) مؤثرة حتي في غيابهم و ليس نفاقا انت احد هذه الاعمده و علشان اجيب عن سؤالك احب ان اعرفك انني عن نفسي اغير علي كتابة اي شيئ عن الاكسل خارج نطاق المنتدي فجمال المنتدي الفعلي و انت فيه حتي و ان لم نشارك (بالمتابعة فقط) لذا اعذروني عن ان اقترح تجميع اسماء من اثروا علي هذا المنتدي في صفحة من بدايته هذا المنتدي عرفاننا من المنتدي بانه يتذكرهم و ليعرفهم جميع من لم يحضروهم و نحن الان نسير علي دربهم و نتعامل بروحهم و اشكرك اخي لاثارة هذا الموضوع خالص تحياتي و تقديري

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

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

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

السلام عليكم اخي الفاضل تم معالجة مشكلة التنشيط بالنسبه لملفي و بالنسبة لملف اخي الحسامي سارد عليك نيابة عنه و هذا بعد اذنه طبعا حدد الرسم الموجود في الرسم و انظر لشريط اظهار المعادلات ستجد معادله من قراءتها ستعرف طريقة الربط ربط الرسم بالمعادلات2.rar

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

السلام عليكم وماشاء الله عليك ايضا اخي الحسامي خصوصوا في فكرة المطلوب الثاني تحياتي

السلام عليكم اخي اذا كان المقصود ب Run ان يكون ملفا تنفيذيا فهناك ناج يقوم بذلك هذا انا جربته بالنسبه للاكسل اما الوورد فلا اعلم تحياتي LockXLS_v3.8.28.rar

السلام عليكم اخي الفاضل حاول ان لم تستطع فلابد من رفع الملف الاساسي لضبطه لك تحياتي

السلام عليكم اخي الفاضل جرب المرفق و اخبرني النتيجة علما بانه مرف ملفان احدهما 2003 و الاخر 2007 تحياتي ربط الرسم بالمعادلات1.rar

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

السلام عليكم اخي الفاضل البرنامج المرفق هو ما استخدمه تحياتي Advanced Office XP Password Recovery Pro v3.14.rar

السلام عليكم اخي الفاضل و هذا ملف اخر لنفس الغرض و لكن مع اعطاء رسالة اذا كان الاسم الذي سيحفظ موجود مسبقا فيتم الغاء الحفظ حتي لا يكون هناك خطا اثناء الحفظ و يعطيك امكانية لتعديل رقم الفاتورة لحفظها مرة اخري تحياتي 7.rar