انتقل إلى المحتوى الرئيسي

كيفية حماية أو قفل قيم الخلية بناءً على لون الخلفية؟

لنفترض أن لدي ورقة عمل كبيرة وخلايا متعددة مليئة بألوان خلفية مختلفة ، والآن ، أريد قفل الخلايا أو حمايتها بناءً على لون مملوء معين ، مثل قفل أو حماية جميع الخلايا باللون الأحمر. هل هناك طرق جيدة للتعامل مع هذه المهمة في Excel؟

حماية أو تأمين قيم الخلية بناءً على لون الخلفية باستخدام كود VBA


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

على سبيل المثال ، أريد قفل جميع الخلايا الحمراء وحمايتها ، من أجل منع المستخدمين الآخرين من تعديل قيم الخلايا هذه ، يمكن لرمز VBA التالي حل هذه المهمة نيابة عنك ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: حماية أو قفل قيم الخلايا بناءً على اللون:

Sub lockcellsbycolor()
'Updateby Extendoffice
    Dim colorIndex As Integer
    colorIndex = 3
    Dim xRg As Range
    Application.ScreenUpdating = False
    For Each xRg In ActiveSheet.UsedRange.Cells
        Dim color As Long
        color = xRg.Interior.colorIndex
        If (color = colorIndex) Then
            xRg.Locked = True
        Else
            xRg.Locked = False
        End If
    Next xRg
    Application.ScreenUpdating = True
    MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub

ملاحظات: في الكود أعلاه ، الرقم 3 في حدود الفهرس = 3 يشير البرنامج النصي إلى خلايا اللون الأحمر التي أريد قفلها ، ويمكنك تغييرها إلى فهرس ألوان آخر تريد قفله.

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم قفل خلايا اللون الأحمر فقط ، وتم إلغاء قفل الخلايا الأخرى في النطاق المستخدم للورقة النشطة ، انظر لقطة الشاشة:

خلايا قفل doc حسب اللون 1

4. إذا كنت ترغب في حمايتها من التعديل بواسطة مستخدمين آخرين ، فأنت تحتاج فقط إلى تطبيق حماية ورقة ميزة لحماية ورقة العمل هذه.

تلميحات: للحصول على رقم فهرس اللون ، يمكنك تطبيق الوظيفة المعرفة من قبل المستخدم التالية:

Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour, y a t il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans l onglet accueil pour mettre un fond de couleur sur les cases non protégés merci
This comment was minimized by the moderator on the site
How do you run this in a loop, so that all cells in all sheets that are not the specific color will be protected?
This comment was minimized by the moderator on the site
Can this be applied to a sheet with merged cells and can it recognize a cell color that is based on conditional formatting? I want to lock cells that are color code 15 and those cells are color code 15 based on a conditional format. Thank you in advance.
This comment was minimized by the moderator on the site
Bonjour,
j'aurais voulu savoir si il était possible de faire la même chose mais avec la valeur de la cellule plutôt que la couleur?
Par exemple: Verrouiller toutes les cellules dont la valeur est "-" de la plage B2:E25.

Merci d'avance
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations