ابو تميم قام بنشر أكتوبر 13, 2012 مشاركة قام بنشر أكتوبر 13, 2012 في الملف المرفق أريد تطبيق حماية المعادلات من العبث والتغيير وإخفائها بدون الحاجة لحماية الورقة والسبب في ذلك لأن ملف العمل عندي المراد حماية معادلاته يحتوي على أكواد فرز وتصفية والعديد من المعادلات والاكواد وحماية الورقة يؤدي إلى إلغاء عمل هذه الأكواد ويعطي رسائل خطأ سببها حماية ورقة العمل المطلوب هنا هو حماية المعادلات وإخفائها بدون حماية ورقة العمل لكم جزيل الشكر والاحترام حماية للمعادلات بدون حماية ورقة العمل.rar 1 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 13, 2012 مشاركة قام بنشر أكتوبر 13, 2012 استعمل هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) Range("C5").Formula = "=SUM(A:A)" End Sub 1 رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أكتوبر 14, 2012 مشاركة قام بنشر أكتوبر 14, 2012 أرجو شرح الكود لاستخدامه في عدة ملفات ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر أكتوبر 14, 2012 الكاتب مشاركة قام بنشر أكتوبر 14, 2012 رهييييييييييييييييييييييييب أخي ابو حنين فعلا كود رهيب ولم يخطر ببالي أبدا سلمت يداك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر أكتوبر 14, 2012 الكاتب مشاركة قام بنشر أكتوبر 14, 2012 أخي أبو حنين جربت الكود على ملف العمل عندي ولكنه لم يعمل مع جميع المعادلات رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر أكتوبر 14, 2012 الكاتب مشاركة قام بنشر أكتوبر 14, 2012 up رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 14, 2012 مشاركة قام بنشر أكتوبر 14, 2012 لو ارسلت مثالا لكان اسهل لانني لا اعرف اين الخلل في ملفك رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر أكتوبر 14, 2012 الكاتب مشاركة قام بنشر أكتوبر 14, 2012 المعادلات التي لم تنجح معي هي =VLOOKUP(C6;Device;2;FALSE) =SUMPRODUCT(($D$11:$D$540>0)*($D$11:$D$540<>"")) شكرا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 14, 2012 مشاركة قام بنشر أكتوبر 14, 2012 اذن اخي من الاحسن ان تستعمل هذ الكود الذي طرحته في مشاركة سابقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub 4 1 رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر أكتوبر 14, 2012 الكاتب مشاركة قام بنشر أكتوبر 14, 2012 الآن أصبح الكود شامل و وافي جزاك الله خيرا تم تجربته على ملف العمل وجميع المعادلات تمت حمايتها وإخفائها سلمت يداك أخي ابو حنين جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 14, 2012 مشاركة قام بنشر أكتوبر 14, 2012 العفو أخي : / أيو تميم رابط هذا التعليق شارك More sharing options...
الحامد الشاكر قام بنشر أكتوبر 14, 2012 مشاركة قام بنشر أكتوبر 14, 2012 هل يمكن إرفاق ملف يوضح التطبيق فضلاً لا امراً رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 14, 2012 مشاركة قام بنشر أكتوبر 14, 2012 بكل بساطة اخي الحامد الشاكر الكود لا يحتاج الى اي مثال وضعه في حدث الورقة يجعل الخلية التي تحتوي على معادلات لا يمكن الوقوف عندها جرب اي معادلة في اي ملف و ضع الكود السابق فستجد انه لا يمكن تحديد الخلية التي تحتوي على المعادلة و ذلك للحفاظ عليها من مسحها عن طريق الخطأ رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أكتوبر 16, 2012 مشاركة قام بنشر أكتوبر 16, 2012 جزاك الله خيراً على هذا الكود ممتاز وحقق النتيجة المرجوة ولكن هل يمكن أن أضع كلمة سر للاحتفاظ بالكود من الداخل لكي لا بتم حذفه . أرجو شرح الطريقة. ولكم جزيل الشكر. رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر أكتوبر 16, 2012 الكاتب مشاركة قام بنشر أكتوبر 16, 2012 أخي fzsss يمكن حماية الاكواد بوضع رقم سري على محرر الاكواد كما في الصورة المرفقة وذلك بالدخول إلى محرر الاكواد من القائمة المطور واتباع الصورة شكرا رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أكتوبر 16, 2012 مشاركة قام بنشر أكتوبر 16, 2012 الاخ ابو حنين بارك الله فيك ولكن فى الكود حينما نريد الرجوع بالسهم الى الخلف ويوجد خليه بها معادلات فلا نستطيع هل يمكن اتاحه الرجوع بالسهم الى الخلف مع اتاحه التحرك بالسهم الى الامام فى نفس الوقت رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 16, 2012 مشاركة قام بنشر أكتوبر 16, 2012 اخي ابراهيم الكود دوره الأساسي هو عدم تحديد اي خلية تحتوي على معادلة حتى و لو استعملنا الاسهم أما ان نستعمل الاسهم فيصبح الكود ليس له اي معنى رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أكتوبر 16, 2012 مشاركة قام بنشر أكتوبر 16, 2012 (معدل) جزاك الله خيراً وجعله في ميزان حساناتك وكان لي طلب عند حضرتك وأرجو المساعدة في هذا الملف المرسل في المشاركة السابقة باسم الملف fz5 ولك جزيل الشكر. تم تعديل أكتوبر 16, 2012 بواسطه fzsss رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أكتوبر 16, 2012 مشاركة قام بنشر أكتوبر 16, 2012 الاخ ابو حنين مشكورا على الايضاح وبارك الله فيك رابط هذا التعليق شارك More sharing options...
ليلى الهلالي قام بنشر ديسمبر 2, 2014 مشاركة قام بنشر ديسمبر 2, 2014 السلام عليكم ورحمة الله وبركاته. أستاذي الفاضل أشكرك على هذا الكود الرائع والذي نفعني في حماية معادلاتي من التغيير. سؤالي هذا الكود يقوم بحماية الخلايا التي فيها معادلات ولكن عندما نقوم بعمل تضليل للخلية التي فيها معادلة وخلية ليس فيها معادلة وقمنا بحذفها فإن المعادلة تُحذف. فهل هناك طريقة للإضافة على هذا الكود أمر بمنع حذف المعادلات حتى ولو ضللنا خلايا كثيرة. 1 رابط هذا التعليق شارك More sharing options...
أحمد فريد قام بنشر ديسمبر 3, 2014 مشاركة قام بنشر ديسمبر 3, 2014 أين نضع الكود لو سمحت رابط هذا التعليق شارك More sharing options...
ليلى الهلالي قام بنشر ديسمبر 3, 2014 مشاركة قام بنشر ديسمبر 3, 2014 أين نضع الكود لو سمحت أخي أحمد الكود يوضع في ورقة الحدث التي فيها معادلات وتريد حمايتها من أي تعديل. رابط هذا التعليق شارك More sharing options...
اسلام سيد قام بنشر ديسمبر 9, 2014 مشاركة قام بنشر ديسمبر 9, 2014 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
وليد زقزوق قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 رائع رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 الاستاذ الحبيب : ابو حنين كمل جميلك ... ولا تجعل المعادلة تظهر عند استمرار الضغط بزر الماوس على الخلية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان