تعديل فى كود

[Yasser Fathi Albanna]

السادة عباقرة الإكسيل الكرام

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

وشكرا

[أبو حنــــين]

السلام عليكم

ضع هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(ActiveCell, [a1:iv36536]) Is Nothing Then
    If ActiveCell.HasFormula Then
        With Application
            .EnableEvents = False: .Undo: .EnableEvents = True
        End With
    End If
 End If

End Sub

[Yasser Fathi Albanna]

أستاذى الفاضل أبو حنين ألف ألف شكر على رد حضرتك  ولكن أنا جربت الكود ولم يؤدى الغض فهل يعمل هذا الكود على عدم المسح وعدم التعديل ويعطى نفس الرسالة أيضا

الرجاء بعد إذن حضرتك تطبيق ذلك على المرفق

[أبو حنــــين]

السلام عليكم

هذا الملف بعد وضع الكود

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

Rank Total Area_.rar

[Yasser Fathi Albanna]

شكرا لإهتمامك وسرعة إجابتك أخى وأستاذى أبو حنين وشكرا أيضا لتعبك معايا