الاخ الفاضل ZZ2
بعد ان تقوم بتحديد جميع الخلاياء (trl + A) من قائمة فورمات اختر format cell ثم protection ثم ازل علامة الصح
وبعد ذلك قم بتحديد خلايا المعادلات وقم بنفس الخطوات السابقو ولكن ضع علامة الصح على الخيارين الموجودين بعد ان تقوم بهذه الخطوات قم بنسخ الكود الموجود وضعة في محرر الفيجول الخاصة بالورقة التي به المعادلات
عند وضع المؤشر على الخلية التي بها المعدلة سوف تظهر رسالة المعادلات لن تظهر
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then
MsgBox "المعادلات لن تظهر"
'ActiveSheet.Protect
Else
'ActiveSheet.Unprotect
End If
For Each MySheet In ActiveWorkbook.Sheets
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
Next MySheet
End Sub