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

[ابو تميم]

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

المطلوب هنا هو حماية المعادلات وإخفائها بدون حماية ورقة العمل

لكم جزيل الشكر والاحترام

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

[أبو حنــــين]

استعمل هذا الكود

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Range("C5").Formula = "=SUM(A:A)"

End Sub

[أم عبد الله]

أرجو شرح الكود لاستخدامه في عدة ملفات ولكم جزيل الشكر

[ابو تميم]

رهييييييييييييييييييييييييب أخي ابو حنين

فعلا كود رهيب ولم يخطر ببالي أبدا

سلمت يداك وجزاك الله خيرا

[ابو تميم]

أخي أبو حنين جربت الكود على ملف العمل عندي ولكنه لم يعمل مع جميع المعادلات

[ابو تميم]

up

[أبو حنــــين]

لو ارسلت مثالا لكان اسهل لانني لا اعرف اين الخلل في ملفك

[ابو تميم]

المعادلات التي لم تنجح معي هي

=VLOOKUP(C6;Device;2;FALSE)

=SUMPRODUCT(($D$11:$D$540>0)*($D$11:$D$540<>""))

شكرا

[أبو حنــــين]

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

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

[ابو تميم]

الآن أصبح الكود شامل و وافي

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

تم تجربته على ملف العمل وجميع المعادلات تمت حمايتها وإخفائها

سلمت يداك أخي ابو حنين

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

[أبو حنــــين]

العفو أخي : / أيو تميم

[الحامد الشاكر]

هل يمكن إرفاق ملف يوضح التطبيق

فضلاً لا امراً

[أبو حنــــين]

بكل بساطة اخي الحامد الشاكر

الكود لا يحتاج الى اي مثال

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

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

[أم عبد الله]

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

أرجو شرح الطريقة. ولكم جزيل الشكر.

[ابو تميم]

أخي fzsss

يمكن حماية الاكواد بوضع رقم سري على محرر الاكواد كما في الصورة المرفقة

وذلك بالدخول إلى محرر الاكواد من القائمة المطور

واتباع الصورة

شكرا

[إبراهيم ابوليله]

الاخ ابو حنين

بارك الله فيك

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

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

[أبو حنــــين]

اخي ابراهيم

الكود دوره الأساسي هو عدم تحديد اي خلية تحتوي على معادلة حتى و لو استعملنا الاسهم

أما ان نستعمل الاسهم فيصبح الكود ليس له اي معنى

[أم عبد الله]

جزاك الله خيراً وجعله في ميزان حساناتك وكان لي طلب عند حضرتك وأرجو المساعدة في هذا الملف المرسل في المشاركة السابقة باسم الملف fz5 ولك جزيل الشكر.

تم تعديل أكتوبر 16, 2012 بواسطه fzsss

[إبراهيم ابوليله]

الاخ ابو حنين

مشكورا على الايضاح

وبارك الله فيك

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

السلام عليكم ورحمة الله وبركاته.

أستاذي الفاضل أشكرك على هذا الكود الرائع والذي نفعني في حماية معادلاتي من التغيير.

سؤالي هذا الكود يقوم بحماية الخلايا التي فيها معادلات ولكن عندما نقوم بعمل تضليل للخلية التي فيها معادلة وخلية ليس فيها معادلة وقمنا بحذفها فإن المعادلة تُحذف. فهل هناك طريقة للإضافة على هذا الكود أمر بمنع حذف المعادلات حتى ولو ضللنا خلايا كثيرة.

[أحمد فريد]

أين نضع الكود لو سمحت 

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

أين نضع الكود لو سمحت 

أخي أحمد

الكود يوضع في ورقة الحدث التي فيها معادلات وتريد حمايتها من أي تعديل.

[اسلام سيد]

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

[وليد زقزوق]

رائع

[ابو القبطان]

الاستاذ الحبيب : ابو حنين

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