كود للحمايه

[الشيباني1]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If ActiveWorkbook.Names("aa").RefersToR1C1 <> "=4" Then Exit Sub
    If Target.HasFormula Then
        Application.DisplayFormulaBar = False
        ActiveSheet.Protect
    Else
        Application.DisplayFormulaBar = True
        ActiveSheet.Unprotect
    End If
   ' Next
End Sub

 

[الشيباني1]

اخواني الاعزاء  ارفق ملفا يتضمن مثالا يوضح ما اروم الوصول اليه  مع الشكر

مثال.rar

[أبوعيد]

السلام عليكم

هذا اقتراح

جرب المرفق

مثال1.xlsm

تم تعديل مايو 23, 2019 بواسطه أبوعيد

[الشيباني1]

اخي العزيز  مع تقديري ليس هذا ما اروم التوصل اليه   ما ابغيه هو زرين احدهما يفعل الكود الذي يتضمنه الملف والثاني يلغي التفعيل  مع الشكر

[أبوعيد]

حسنا

جرب المرفق

مثال2.xlsm

[الشيباني1]

اخي العزيز  هذا ما كنت اصبو اليه مع شكري الجزيل

[مدحت حافظ]

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

[hicham2610]

السلام عليكم

من خلال تجربتي للملف الأخير لاحظت ظهور صيغة المعادلة رغم تفعيل الكود 

وهذه محاولتي عند تفعيل الكود لاتظهر صيغة المعادلة

إن كان هذا هو المطلوب؟ أتواصل معكم لاحقا بحول الله بخصوص الطريقة

HICHAM.xlsm

[الشيباني1]

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