اريد كود يقوم بمنع تغير المعادلات فقط فى نطاق معين

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

الاخوه الافاضل

تحية طيبه وبعد

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

بمعنى اننى عندى جدول يبدأ من الخليه a5 الى الخليه d20

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

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

[رجب جاويش]

أخى ابراهيم

هذا كود فكرته بسيطة لكنه رائع فى التنفيذ

وهو للأستاذ الكبير / هشام شلبى

Private Sub Worksheet_selectionchange(ByVal target As Range)

If target.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

End Sub

حماية الخلايا المحتوية على معادلات.rar

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

الاخ رجب بارك الله فيك

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

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

اى ترجع المعادلات كما كانت موجوده

[رجب جاويش]

تفضل أخى

كود آخر لأحد عباقرة المنتدى

يحقق لك ما تريد

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("myrange")) Is Nothing Then

	    Application.EnableEvents = False

	    Application.Undo

	    Application.EnableEvents = True

    End If

End Sub

حماية الخلايا المحتوية على معادلات.rar

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

الاخ رجب بارك الله فيك

ولكنى اطمع فى ما هو اكثر من ذلك

ففى المرفق ستجد النطاق ملون باللون الاسمر

ولكن اماكن المعادلات تختلف من عمود لااخر

وبذلك فانا اريد ان يكون الكود شامل للنطاق ككل

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

اتمنى ان اكون استطعت التوضيح

حماية الخلايا المحتوية على معادلات.rar

تم تعديل أغسطس 2, 2012 بواسطه إبراهيم ابوليله

[رجب جاويش]

تفضل أخى ابراهيم

يمكنك كتابة المعادلات فى مكان فى sheet1

ويتم تفعيل الكود عند فتح الملف

حماية الخلايا المحتوية على معادلات3.rar

[يوسف عطا]

تفضل أخى ابراهيم

يمكنك كتابة المعادلات فى مكان فى sheet1

ويتم تفعيل الكود عند فتح الملف

هل يشترط تفعيل حماية الشيت ؟؟

أم تكون خلايا المعادلات محمية من الكود فقط بدون تفعيل حماية الورقة ؟؟

[رجب جاويش]

أخى الفاضل / يوسف عطا

لا يشترط فى الكود تفعيل حماية الورقة

ولكنه يعتمد على فكرة أخرى

وهى تنفيذ الأمر Undo عند التغير فى أى خليه بها معادلة