مساعدة في حماية الخلايا التي تحتوي معادلات

[ياسر الحافظ]

الأعزاء المحترمين :

مرفق ملف به كود حماية الخلايا التي تحتوي معادلات ( عدم الوقوف على خلايا المعادلات )

في الشيت " الكشف "

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

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

مرفق ملف للتوضيح في الشيت " الكشف "

أشكركم

وفقك الله

ياسر الحافظ

مستودع المفروشات الرصيد.rar

[ياسر الحافظ]

up

[ياسر الحافظ]

up

[ياسر الحافظ]

up

[علي سالم 75]

السلام عليكم

ده كود للاخ خبور

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("E7,E9:F257")) Is Nothing Then

        Application.EnableEvents = False

        Application.Undo

        Application.EnableEvents = True

        MsgBox "خلية لا يمكن تعديلها"

    End If

End Sub

يعمل اذا غيرت الخلايا المحددة في الكود

[دغيدى]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Range("a10:ab29"), Target) Is Nothing Then

  Target.Offset(0, 1).Select

End If

End Sub

أخى الفــــاضل / يــــــاسر الحــــــافظ

كود فى أحد المنتديات يحمى منطقة ( مشغولة أو خالية ) ويمكن تغيير المدى

تم تعديل مايو 24, 2011 بواسطه دغيدى

[أبو محمد أشرف]

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

[ياسر الحافظ]

الاخ بليش روغ

اشكرك كود رائع

واشكر اهتمامك وتعاونك .

وفقك الله

الاخ / الاستاذ العزيز دغيدي :

لن اشكرك على الكود المرفق ( برغم روعته وفعلا هذه هي الاكواد المطلوبة )

ولكن اشكرك لاشياء واشياء اخرى

لهذا التعاون الملحوظ في مساعدة الاخرين

للروح الجماعية العالية

للـ....................

وفقك الله

ياسر الحافظ

[يوسف عطا]

الله ينور عليكم أخوتى الأعزاء

الكودان رائعان

[abdellahgh]

في ٢٤‏/٥‏/٢٠١١ at 23:32, دغيدى said:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("a10:ab29"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub

السلام عليكم أستاذ

لو أريد خلايا متفرقة في الورقة ما العمل ؟ 

مثلا الخلية a1 و f4 وe10 و a5 و b12 و c3 

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

تم تعديل يناير 15, 2019 بواسطه abdellahgh

[Ali Mohamed Ali]

تفضل لك ما طلبت

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("a1:a5,F4,B12,C3,E10"), Target) Is Nothing Then
  Target.Offset(0, 1).Select
End If
End Sub