드롭 다운 선택을 기반으로 한 행의 특정 셀을 잠그는 방법 Excel에서

Question

특정 옵션에 고유 한 색이 있도록 조건부 서식을 설정 했으므로 이제는 셀을 기반으로하는 매크로를 만들려고합니다. 드롭 다운에 대한 행의 다른 모든 셀은 읽기 전용입니다.

예를 들어 A5가 "Toyota"로 선택되면 5 행의 E5 만 E5와 일치하는 A5의 형식으로 편집 할 수 있습니다. 세포의

스크린 샷 :

Answer 1

당신은 처음 사용 행하지 A1에서 시작이

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rw As Range, rHdr As Range, cl As Range 

    Me.Unprotect 
    If Target.Column = 1 Then 
     Set rHdr = Me.UsedRange.Rows(1) 

     For Each rw In Target.Rows 
      If rw.Cells(1, 1) <> "" Then 
       For Each cl In rHdr.Cells 
        Me.Cells(rw.Row, cl.Column).Locked = Not (cl.Value Like rw.Cells(1, 1) & "*") 
       Next 
      Else 
       rw.Locked = True 
      End If 
      rw.Cells(1, 1).Locked = False 
     Next 
    End If 
    Me.Protect 
End Sub