اخواني الاعزاء تحية طيبه لحاجتي للكود المدرج ادناه لحماية المعادلات ارجو المساعده بترتيب زر للتفعيل وعدم التفعيل ان امكن مع الشكر الجزيل
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