گذاشتن شرط غیر قابل استفاده کردن سلول

[eyou]

سلام وقت بخیر

سه تا سلول در هر ردیف دارم مثلا a1 ,a2,a3 فقط داخل یکی از این سه سلولل باید عدد یک قرار بگیریه
می خوام شرط بزارم در صورتی که داخل هرکدوم از 3 تا سلول فوق عدد 1 بود یک محدوده ای دیگه از سلولها غیر فعال بشن و امکان وارد کردن اطلاعات نداشته باشن و رنگشون هم مشکی بشه و برای هر ردیف اگر بخوام انجام بشه چطور باید اینکار بکنم ؟
ممنون

[iranweld]

با سلام

در فایل پیوست در صورتی که A1:A3 برابر یک باشد محدوده ای از شیت قفل شده و به رنگ سیاه ظاهر میگردد

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A1:A3")) Is Nothing Then
    
    
    
    If Range("A1") = 1 And Range("A2") = 1 And Range("A3") = 1 Then
    
    ActiveSheet.Unprotect "password"

    Range("c1:f10").Locked = True
   
  Range("c1:f10").Interior.ColorIndex = 1
   
ActiveSheet.Protect "password"


ElseIf Range("A1") <> 1 Or Range("A2") <> 1 Or Range("A3") <> 1 Then
    
    ActiveSheet.Unprotect "password"

    Range("c1:f10").Locked = False
    
    Range("c1:f10").Interior.ColorIndex = 4
   
    
    End If
    
    
    End If

    End Sub