Microsoft Excel يتيح لك تطبيق الشرطيةالتنسيق إلى الخلايا. إذا كانت القيمة في خلية تلبي بعض القواعد التي قمت بتعيينها ، فإن ميزة التنسيق الشرطي ستغير لون النص في الخلية ، أو لون التعبئة ، أو كليهما. هذه هي الميزة الأساسية التي تعمل مباشرة خارج الصندوق ، ولكن إذا كنت تريد قفل الخلايا بناءً على اللون ، فأنت بحاجة إلى برنامج نصي VBA صغير للقيام بذلك.
يمكنك استخدام التنسيق الشرطي لتغييرلون خلية أو يمكنك تغيير اللون يدويًا إلى أي شيء تريده. لا يعتمد البرنامج النصي VBS على التنسيق الشرطي لقفل الخلايا. انها تحتاج فقط خلية لتكون ملونة.
قفل الخلايا على أساس اللون
قبل أن تتمكن من إنشاء برنامج نصي VBA ، تحتاج إلى معرفة لون الخلية التي تشير إليها. VBA لا ترى الألوان كما هي ؛ فإنه يشير إليها عبر رموز الألوان الخاصة بهم.
أول شيء عليك القيام به هو إعطاء الخلية الخاصة بكلون. لقد ذهبنا باللون الأصفر الأساسي الذي يسهل الرجوع إليه. إذا كنت تستخدم لونًا مختلفًا ، فاستخدم موقع الويب هذا للعثور على رمز اللون الذي تحتاج إلى استخدامه. رمز اللون الذي نستخدمه للأصفر هو # FFFF00.
في Excel ، قم بتمكين علامة التبويب المطور ، ثم قم بالتبديل إليها. انقر فوق الزر Visual Basic والصق ما يلي في "ورقة العمل هذه". تمت كتابة هذا البرنامج النصي بواسطة المستخدم المتميز ديف.
Sub WalkThePlank() dim colorIndex as Integer colorIndex = FFFF00 Dim rng As Range For Each rng In ActiveSheet.UsedRange.Cells Dim color As Long color = rng.Interior.ColorIndex If (color = colorIndex) Then rng.Locked = True else rng.Locked = false End If Next rng End Sub
قم بتشغيل البرنامج النصي ، وسيتم قفل جميع الخلايا التي هي اللون الذي تحدده. سيتم تعيين رمز اللون الذي وجدته للون الخاص بك في هذا الخط في البرنامج النصي ؛
colorIndex = FFFF00
يمثل FFFF00 اللون الأصفر وهذاما تحتاج إلى استبداله بأي رمز لون ينطبق على اللون الذي تستخدمه. يجب أن نذكر أنه من الأفضل أن يتم استخدام اللون الأساسي. بمجرد إضافة هذا ، ستحتاج إلى حفظ ملف Excel الخاص بك كملف تمكين الماكرو أو لن يتم حفظ البرنامج النصي VBA.
الخلايا المقفلة يمكن فتحها بسهولة. القفل ليس قفلًا محميًا بكلمة مرور ويمنع الآخرين من تغيير قيمة الخلية إذا أرادوا. إنه قفل عادي يمنع التغييرات العرضية في الملف.
تعليقات