يوسف عطا قام بنشر أكتوبر 7, 2012 قام بنشر أكتوبر 7, 2012 الكود المرفق لحماية الخلايا التى تحتوى على معادلات ويوضع فى حدث الشيت الرجاء تعديله ليتعامل مع الخلايا المدموجة أيضاً ولو أمكن أن يوضع فى حدث زيس وورك بوك ليؤثر فى كل الشيتات حيث أتعامل مع ملف مكون من 30 شيت Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub
عبدالله المجرب قام بنشر أكتوبر 7, 2012 قام بنشر أكتوبر 7, 2012 السلام عليكم ضع هذا الكود في حدث 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
يوسف عطا قام بنشر أكتوبر 7, 2012 الكاتب قام بنشر أكتوبر 7, 2012 الشكر الجزيل لك أخونا عبدالله بك المجرب
يوسف عطا قام بنشر أكتوبر 8, 2012 الكاتب قام بنشر أكتوبر 8, 2012 (معدل) عزيزى الغالى عبدالله بك المجرب دام عزك يا غالى علينا الكود يقوم بحماية الخلايا المدموجة حتى لو لم يكن بها معادلات المفروض يقوم بحمايتها فقط لو بها معادلات جربت أعدل الكود ولم أفلح الرجاء تعديل الكود ليقوم بحماية الخلايا التى بها معادلات فقط حتى ولو كانت مدموجة ولو أمكن إضافة له سطر إستثناء بمعنى لو كنت لا أريده أن يكون فعالاً فى بعض الشيتات أضع أسماء هذه الشيتات فى سطر الإستثناء فيصبح الكود فعالاً فى كل الشيتات بالملف إلا هذه الشيتات المستثناه تم تعديل أكتوبر 8, 2012 بواسطه يوسف عطا
يوسف عطا قام بنشر أكتوبر 12, 2012 الكاتب قام بنشر أكتوبر 12, 2012 للرفع رفع الله قدركم وبلغكم مرادكم وهنأكم بحياتكم
أبو أنس حاجب قام بنشر أكتوبر 13, 2012 قام بنشر أكتوبر 13, 2012 السلام عليكم ورحمة الله وبركاته أساتذتي وسادتي الكرام حفظكم الله جميعاً يوسف عطا عبد الله المجرب (أبا أحمد) أبا حنين وخديجة ومحمد الأمين وعبد الرحمن جزاكم الله من الخير حتى الرضا وزيادة وما ذلك على الله بعزيز ومتعكم بالصحة والعافية. بارك الله لكم وبكم وفي ذريتكم من بعدكم. أبو أنس
أبو حنــــين قام بنشر أكتوبر 13, 2012 قام بنشر أكتوبر 13, 2012 أسعد الله صباح أخي الحبيب أبو أنس بالخير و الصحة و بارك الله فيك و في أنس و رزقك من حيث لا تحتسب
أبو حنــــين قام بنشر أكتوبر 13, 2012 قام بنشر أكتوبر 13, 2012 جزاك الله خيرا أخي أبو أحمد على مروركم
يوسف عطا قام بنشر أكتوبر 16, 2012 الكاتب قام بنشر أكتوبر 16, 2012 عفواً أبا حنين الكود لا يعمل جيداً عند عدم تفعيل حماية الورقة الكود لا يحمى الخلايا سواء المدموجة أو المفردة سواء بها معادلات أم لا عند تفعيل حماية الورقة الكود يمنع الكتابة فى جميع الخلايا سواء المدموجة أم الغير مدموجة سواء بها معادلات أم ليس بها ايضاً الرجاء تعديل الكود ليجعل الخلايا التى بها معادلات محمية سواء المدموجة أم الغير مدموجة
أبو حنــــين قام بنشر أكتوبر 16, 2012 قام بنشر أكتوبر 16, 2012 اخي يوسف الكود يعمل عندي بشكل طبيعي و انا استعمل اوفيس 2003 اما النسخ التي بعد 2003 فلا ادي هل الكود يعمل عليها او لا
يوسف عطا قام بنشر أكتوبر 17, 2012 الكاتب قام بنشر أكتوبر 17, 2012 أنا أعمل على 2003 أيضاً ولكن لا أعرف ما سبب عدم العمل عندى على كل حال جارى إعادة التجربة
يوسف عطا قام بنشر أكتوبر 17, 2012 الكاتب قام بنشر أكتوبر 17, 2012 فعلاً الكود يعمل جيداً الله ينور عليك يابو حنين كيف أعدل الكود ليعمل فى كل الشيتات من حدث زيس وورك بوك ؟؟
يوسف عطا قام بنشر أكتوبر 17, 2012 الكاتب قام بنشر أكتوبر 17, 2012 هل هذا التعديل صالح لتفعيل الكود فى كل شيتات الملف ؟؟ أعتقد سوف يصلح جازاك الله خيراً أخى ابو حنين 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
أبو حنــــين قام بنشر أكتوبر 17, 2012 قام بنشر أكتوبر 17, 2012 أنعمت مساءا أخي يوسف تمام أخي يوسف الكود الذي ذكرته في مشاركتك رقم 16 هو الذي يعمل مع كل اوراق العمل
منير سعد قام بنشر نوفمبر 8, 2014 قام بنشر نوفمبر 8, 2014 الكود فى المشاركة 16 افضل كود للحماية لجميع الصفحات والله هذا المنتدى من اروع المنتديات التى نتعلم منها الاكسيل شكرا لكل القائمين على الاشراف
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.