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

[يوسف عطا]

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

ويوضع فى حدث الشيت

الرجاء تعديله ليتعامل مع الخلايا المدموجة أيضاً

ولو أمكن أن يوضع فى حدث زيس وورك بوك ليؤثر فى كل الشيتات حيث أتعامل مع ملف مكون من 30 شيت

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select

End Sub

[عبدالله المجرب]

السلام عليكم

ضع هذا الكود في حدث This Workbook

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select

If Target.MergeCells Then ActiveCell.Offset(0, 1).Select

End Sub

[يوسف عطا]

الشكر الجزيل لك أخونا عبدالله بك المجرب

[يوسف عطا]

عزيزى الغالى عبدالله بك المجرب

دام عزك يا غالى علينا

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

المفروض يقوم بحمايتها فقط لو بها معادلات

جربت أعدل الكود ولم أفلح

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

ولو أمكن إضافة له سطر إستثناء بمعنى لو كنت لا أريده أن يكون فعالاً فى بعض الشيتات أضع أسماء هذه الشيتات فى سطر الإستثناء فيصبح الكود فعالاً فى كل الشيتات بالملف إلا هذه الشيتات المستثناه

تم تعديل أكتوبر 8, 2012 بواسطه يوسف عطا

[يوسف عطا]

للرفع رفع الله قدركم

[يوسف عطا]

للرفع

رفع الله قدركم

وبلغكم مرادكم

وهنأكم بحياتكم

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

اخي يوسف جرب المرفق

المعادلة.rar

[أبو أنس حاجب]

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

أساتذتي وسادتي الكرام حفظكم الله جميعاً

يوسف عطا

عبد الله المجرب (أبا أحمد)

أبا حنين وخديجة ومحمد الأمين وعبد الرحمن

جزاكم الله من الخير حتى الرضا وزيادة وما ذلك على الله بعزيز ومتعكم بالصحة والعافية.

بارك الله لكم وبكم وفي ذريتكم من بعدكم.

أبو أنس

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

أسعد الله صباح أخي الحبيب أبو أنس بالخير و الصحة

و بارك الله فيك و في أنس و رزقك من حيث لا تحتسب

[عبدالله المجرب]

عمل موفق اخي ابو حنين

بارك الله فيك

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

جزاك الله خيرا أخي أبو أحمد على مروركم

[يوسف عطا]

عفواً أبا حنين

الكود لا يعمل جيداً

عند عدم تفعيل حماية الورقة

الكود لا يحمى الخلايا سواء المدموجة أو المفردة سواء بها معادلات أم لا

عند تفعيل حماية الورقة

الكود يمنع الكتابة فى جميع الخلايا سواء المدموجة أم الغير مدموجة سواء بها معادلات أم ليس بها ايضاً

الرجاء تعديل الكود ليجعل الخلايا التى بها معادلات محمية سواء المدموجة أم الغير مدموجة

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

اخي يوسف الكود يعمل عندي بشكل طبيعي

و انا استعمل اوفيس 2003 اما النسخ التي بعد 2003 فلا ادي هل الكود يعمل عليها او لا

[يوسف عطا]

أنا أعمل على 2003 أيضاً ولكن لا أعرف ما سبب عدم العمل عندى

على كل حال جارى إعادة التجربة

[يوسف عطا]

فعلاً الكود يعمل جيداً

الله ينور عليك يابو حنين

كيف أعدل الكود ليعمل فى كل الشيتات من حدث زيس وورك بوك ؟؟

[يوسف عطا]

هل هذا التعديل صالح لتفعيل الكود فى كل شيتات الملف ؟؟

أعتقد سوف يصلح

جازاك الله خيراً أخى ابو حنين

Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range)

If Target.HasFormula = True Then

ActiveCell.Offset(0, 1).Select

ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select

ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select

End If

End Sub

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

أنعمت مساءا أخي يوسف

تمام أخي يوسف الكود الذي ذكرته في مشاركتك رقم 16 هو الذي يعمل مع كل اوراق العمل

[منير سعد]

الكود فى المشاركة 16 افضل كود للحماية لجميع الصفحات 

 

والله  هذا المنتدى  من اروع المنتديات التى نتعلم منها الاكسيل 

 

شكرا لكل القائمين على الاشراف