بدون حماية للورقة احمي المعادلة

[علي المصري]

بدون الحاجة لحماية الورقة بكلمة مرور أو غيره

 

إليك الكود التالي يمنع الوقوف على في الخلية إذا كانت تحتوي على معادلة ( بشرط لا يوجد دمج لهذه الخلية مع خلية أخرى )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select
End Sub

[ياسر خليل أبو البراء]

جميل أخي على المصري

بارك الله فيك

.. لكن جرب أن تضغط بزر الماس الأيسر على الخلية التي بها المعادلة مع الاستمرار في الضغط

مفيش فايدة

[حمادة عمر]

السلام عليكم

وكما اخبرنا اخي الحبيب الاستاذ / ياسر خليل ... جزاه الله خيرا

فعلا اخي الكريم / علي المصري ... بهذه الطريقة ( مفيش فايدة ) هههههههههههه

 

واضافة للكود المرفق منك ولمن يحتاجه

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

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

[ياسر خليل أبو البراء]

الأخ الحبيب حماده عمر

بارك الله فيك على الإضافة .. بس بردو مفيش فايدة

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

[حمادة عمر]

لا حرمنا الله منك اخي واستاذنا الغالي  / ياسر خليل  ولا من خفة دمك الجميلة

والعفريت جمبك ولا حاجة

ويا بخت تلاميذك بيك

[ليلى الهلالي]

أستاذي الفاضل علي المصري

أستاذي الفاضل حمادة عمر

بالنسبة لهذا الكود الذي يقوم بحماية المعادلة هل يقوم بحمايتها من المسح Delete عند تحديد أكثر من خلية ليس فيها معادلات مع الخلية التي فيها معادلات. أرجو الإفادة.

تم تعديل ديسمبر 6, 2014 بواسطه morestudy

[ياسر خليل أبو البراء]

أعتقد لا يوجد طريقة ناجحة لحماية المعادلات إلا بحماية ورقة العمل ..

ودي كمان يسهل كسرها ..

يعني زي ما قلت : مفيش فايدة .. الموضوع دا حاولت فيه لما طلعت عيني ومفيش فايدة

بس أرجع أقول لا يأس طول ما فيه نفس .. يمكن يكون فيه طريقة مع ابن مصر محدش يعرفها غيره

[حمادة عمر]

السلام عليكم

الاخ الكريم / morestudy

بارك الله فيك

بالنسبة لسؤالك بخصوص المسح فعند تحديد مجموعة خلايا من ضمنها الخلايا المقصودة فان عملية المسح تتم بالفعل ويتم مسح البيانات

ولتنيذ ذلك فيمكن استخدام اكواد أخري ذات فعالية اعلي

تقبل خالص تحياتي

 

[حمادة عمر]

السلام عليكم

الاخ الكريم /http://www.officena....showtopic=41520

==============
الادارة
==============

[ليلى الهلالي]

الأستاذ الفاضل حمادة. أشكرك لإجابتك على سؤالي. وأحترم رغبة المنتدى بالتعامل بالاسماء العربية ولكن هذا هو لقبي المتعارف عليه في الفيس بوك وفي جميع المنتديات والمواقع العربية والأجنبية التي سجلت فيها. لذا استميحكم العذر بالبقاء بهذا الاسم إذا لم يكن فيه أي ضيق أو إساءة. وشكراَ.

تم تعديل ديسمبر 6, 2014 بواسطه morestudy

[علي المصري]

شكراً لفريق الموقع وكل من شرف الموضوع بالرد

جزاكم الله خيرا

 

كلامكم جميل جدا ولكن

 

هل كل من يستخدم الاكسيل في عبقريتكم

 

هذا الكود للحماية حتى لا يتم تغيير المعادلة او العبث فيها دون قصد وبالتالي تعطي نتائج خاطئة

 

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

 

شكرا جزيلا

وشكر استاذ حمادة على اضافة حالة الدمج

 

 

جزاكم الله خيرا

[دغيدى]

Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If ActiveCell.HasFormula = True Then ActiveCell.Offset(0, 1).Select
End Sub

عدم الوقوف على الخلية المفردة أو المدمجة التى بها دالة