كود حماية الخلايا التي تحتوي على معادلات تلقائيا

[S0bhy]

السلام عليكم ورحمة الله وبركاتة

 

بعد البحث فى المنتدى ومنتديات اجنبية اخري

تم الحصول على الكود التالى الذى وظيفتة حمايىة الخلايا التى تحتوى على معادلات تلقائيا :

Private Sub Worksheet_selectionchange(ByVal target As Range)
If target.HasFormula Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If

End Sub

 

 ولكن ل للاسف عند تطبيقىة بالملف المرفق 

 

يتبين وجود الكود فى module ولكن لا يتم تفعيل الماكرو كما هو موضح بالصور :

ارجو المساعدة 

تم تعديل الملف

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

 

 

 

 

Protect.xlsm

[أحمد يوسف]

بالطبع لا يوضع هذا الكود بموديول عادى ولكن يتم وضع الكود بحدث الصفحة التى بها المعادلات المطلوب حمايتها

 

 

Protect.xlsm

[S0bhy]

اولا شكرا جزيلا لك اخى الكريم على التوجيهات والمعلومات القيمة

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

ثانيا اريد ان افهم كيف وضعت الكود بحدث الصفحة وما المقصود بحدث الصفحة بعذ اذنك.

اريد تطبيق المثال على اكثر من ورقة عمل

افادكم الله

[أحمد يوسف]

بارك الله فيك وذلك بكل بساطة

بالضغط على اسم الصفحة بيمين الماوس ثم اختيار View Code فسيتم فتح نافذة جديدة يمكنك لصق هذا الكود بها

أو يمكنك بكل سهولة بتعميم هذا الكود على جميع صفحات الملف مرة واحدة وذلك بلصق هذا الكود بحدث ThisworkBook

وذلك كما بالصورة رقم 2

 

 

 

 

[S0bhy]

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

 

وشكرا ما قصرت الله يعطيك الف عافية