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

[عاشق الاكسيل]

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

عايز كود يقوم بحماية اى خلية بها معادلة من التعديل واخفاء المعادلة

 

[سليم حاصبيا]

هذا الكود يمنع التعديل في الخلايا الني تحتوي على معادلات

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

الكود (يوضع في جدث الصفحة المعنية وليس في موديل مستقل)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
 
With Me
     .Unprotect
     .Cells.Locked = False
                With .Cells.SpecialCells(-4123, 23)
                   .Locked = True
                   .FormulaHidden = True
                End With
     .Protect
 End With

 Application.EnableEvents = True
End Sub

الملف مرفق

Protect_Formula.rar

[عاشق الاكسيل]

في 30/08/2017 at 15:37, سليم حاصبيا said:

هذا الكود يمنع التعديل في الخلايا الني تحتوي على معادلات

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

الكود (يوضع في جدث الصفحة المعنية وليس في موديل مستقل)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
 
With Me
     .Unprotect
     .Cells.Locked = False
                With .Cells.SpecialCells(-4123, 23)
                   .Locked = True
                   .FormulaHidden = True
                End With
     .Protect
 End With

 Application.EnableEvents = True
End Sub

الملف مرفق

Protect_Formula.rar

استاذي سليم حاصبيا

شكرا جدا علي المساعدة وعلي الكود .

هل من الممكن التعديل عليه بحيث يعمل علي كافة الشيتات دفعة واحدة؟

[سليم حاصبيا]

استبدل اول 4 أسطر من الكود الى هذا الاسطر الاربعة

(يوضع في حدث Thisworkbook وليس في موديل مستقل)

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
 With ActiveSheet

 

[حسين مامون]

كود رائع جزاك الله خيرا استاذنا 

ممكن اجراء تعديل في المشاركة الاولى ليشمل خلايا فيها معادلات فقط لانني لا استطيع تعديل التنسيقات  في جميع الخلايا

تم تعديل أغسطس 31, 2017 بواسطه حسين مامون

[سليم حاصبيا]

34 دقائق مضت, حسين مامون said:

كود رائع جزاك الله خيرا استاذنا 

ممكن اجراء تعديل في المشاركة الاولى ليشمل خلايا فيها معادلات فقط لانني لا استطيع تعديل التنسيقات  في جميع الخلايا

تسنطيع اجراء اي تنسيق على اي خلية(او محموعة خلايا) شرط الا يحتوي النطاق على معادلات

[حسين مامون]

كما في الصورة استاذي شريط ادوات التنسيق مغلق (Enabled)لا اعرف لماذا 

[سليم حاصبيا]

1 ساعه مضت, حسين مامون said:

كما في الصورة استاذي شريط ادوات التنسيق مغلق (Enabled)لا اعرف لماذا 

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

لذلك يجب

اولاً ايقاف الكود عن العمل (بوضع فاصلة عليا امام اول سطر منه)

ثانياً الغاء الحماية عن الشيت

ثالثاً-اجراء التنسيقات اللازمة

و اخيراً السماح للكود بالعمل(ازالة الفاصلة العليا امام اول سطر منه)

 

[حسين مامون]

4 دقائق مضت, سليم حاصبيا said:

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

لذلك يجب

اولاً ايقاف الكود عن العمل (بوضع فاصلة عليا امام اول سطر منه)

ثانياً الغاء الحماية عن الشيت

ثالثاً-اجراء التنسيقات اللازمة

و اخيراً السماح للكود بالعمل(ازالة الفاصلة العليا امام اول سطر منه)

 

جزاك الله خيرا استاذ

[سليم حاصبيا]

9 دقائق مضت, حسين مامون said:

جزاك الله خيرا استاذ

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

ActiveSheet.Protect AllowFormattingCells:=True

 

  .protect    تكتب مباشرة مكان

 

 

[حسين مامون]

هكذا احسن استاذنا 

حفظك الله 

[حسام الدين الحسيني]

بارك الله فيك