علي المصري قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 بدون الحاجة لحماية الورقة بكلمة مرور أو غيره إليك الكود التالي يمنع الوقوف على في الخلية إذا كانت تحتوي على معادلة ( بشرط لا يوجد دمج لهذه الخلية مع خلية أخرى ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 جميل أخي على المصري بارك الله فيك .. لكن جرب أن تضغط بزر الماس الأيسر على الخلية التي بها المعادلة مع الاستمرار في الضغط مفيش فايدة رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم وكما اخبرنا اخي الحبيب الاستاذ / ياسر خليل ... جزاه الله خيرا فعلا اخي الكريم / علي المصري ... بهذه الطريقة ( مفيش فايدة ) هههههههههههه واضافة للكود المرفق منك ولمن يحتاجه اليك تعديل بسيط ليعمل هذا الكود وبنفس الطريقة علي الخلايا المفردة والخلايا في حالة دمجها Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.MergeCells & Target.HasFormula = True Then Target.Offset(0, 1).Select If Target.HasFormula = True Then Target.Offset(0, 1).Select End Sub تقبلوا خالص تحياتي حماية المعادلات حتي في الخلايا المدمجة.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 الأخ الحبيب حماده عمر بارك الله فيك على الإضافة .. بس بردو مفيش فايدة ممكن نقدر في حالة واحدة .. نجيب بودرة عفريت من عند (العفريت) ونلبس الخلية طاقية الاخفا 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 لا حرمنا الله منك اخي واستاذنا الغالي / ياسر خليل ولا من خفة دمك الجميلة والعفريت جمبك ولا حاجة ويا بخت تلاميذك بيك رابط هذا التعليق شارك More sharing options...
ليلى الهلالي قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 (معدل) أستاذي الفاضل علي المصري أستاذي الفاضل حمادة عمر بالنسبة لهذا الكود الذي يقوم بحماية المعادلة هل يقوم بحمايتها من المسح Delete عند تحديد أكثر من خلية ليس فيها معادلات مع الخلية التي فيها معادلات. أرجو الإفادة. تم تعديل ديسمبر 6, 2014 بواسطه morestudy رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 أعتقد لا يوجد طريقة ناجحة لحماية المعادلات إلا بحماية ورقة العمل .. ودي كمان يسهل كسرها .. يعني زي ما قلت : مفيش فايدة .. الموضوع دا حاولت فيه لما طلعت عيني ومفيش فايدة بس أرجع أقول لا يأس طول ما فيه نفس .. يمكن يكون فيه طريقة مع ابن مصر محدش يعرفها غيره رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم الاخ الكريم / morestudy بارك الله فيك بالنسبة لسؤالك بخصوص المسح فعند تحديد مجموعة خلايا من ضمنها الخلايا المقصودة فان عملية المسح تتم بالفعل ويتم مسح البيانات ولتنيذ ذلك فيمكن استخدام اكواد أخري ذات فعالية اعلي تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم الاخ الكريم /http://www.officena....showtopic=41520 ============== الادارة ============== رابط هذا التعليق شارك More sharing options...
ليلى الهلالي قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 (معدل) الأستاذ الفاضل حمادة. أشكرك لإجابتك على سؤالي. وأحترم رغبة المنتدى بالتعامل بالاسماء العربية ولكن هذا هو لقبي المتعارف عليه في الفيس بوك وفي جميع المنتديات والمواقع العربية والأجنبية التي سجلت فيها. لذا استميحكم العذر بالبقاء بهذا الاسم إذا لم يكن فيه أي ضيق أو إساءة. وشكراَ. تم تعديل ديسمبر 6, 2014 بواسطه morestudy رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 7, 2014 الكاتب مشاركة قام بنشر ديسمبر 7, 2014 شكراً لفريق الموقع وكل من شرف الموضوع بالرد جزاكم الله خيرا كلامكم جميل جدا ولكن هل كل من يستخدم الاكسيل في عبقريتكم هذا الكود للحماية حتى لا يتم تغيير المعادلة او العبث فيها دون قصد وبالتالي تعطي نتائج خاطئة وذلك مثلا عند عملي لبرنامج لتحليل النتائج بالمدرسة باستخدام هذ الكود لمنع باقي المعلمين من الكتابة فوق هذه الخلية شكرا جزيلا وشكر استاذ حمادة على اضافة حالة الدمج جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر ديسمبر 7, 2014 مشاركة قام بنشر ديسمبر 7, 2014 Private Sub Worksheet_Selectionchange(ByVal Target As Range) If ActiveCell.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub عدم الوقوف على الخلية المفردة أو المدمجة التى بها دالة 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.