مشرفينا الأفاضل tameromar و علي السحيب
أشكركم كل الشكر على سعة صدوركم لنا
وملفك سليم
ولكن المشكلة كانت لدي
بالنسبة للكود الي استخدمه هو لأكثر من خليه وعذراً على عدم توضيح السؤال من البداية وهذا هو الكود أرجو التعديل عليه لكي أتمكن من عمل حماية وشكراً
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
Dim Cell As Range
Set MyRange = [b12:y12]
For Each Cell In MyRange
If Cell = "0" Then Cell.Interior.ColorIndex = 0
If Cell = "1" Then Cell.Interior.ColorIndex = 10
If Cell = "2" Then Cell.Interior.ColorIndex = 4
If Cell = "3" Then Cell.Interior.ColorIndex = 27
If Cell = "4" Then Cell.Interior.ColorIndex = 3
If Cell = "5" Then Cell.Interior.ColorIndex = 9
Next
End Sub
وهذا الكود المستخدم لمشرفنا الغالي علي السحيب على هذا الرابط أضغط هنا
المشاركة رقم 14