السلام عليكم
شكرا سيدى الكريم على لفت النظر
فعلا : كانت المتغيرات معرفه على انها workbook و ليس worksheet
يبدو انه التبس على الحمايه من كود الاستاذ ابو عبد الله و الحمايه من الكود المختصر
اليك الحل و هو مختصر المختصر
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.HasFormula Then Exit Sub
If Target.HasFormula Then ActiveSheet.Protect
End Sub
what_about_this_one.rar