excel - Excelでドロップダウン選択に基づいて行内の特定のセルをロックするにはどうすればよいですか

Question

条件付き書式を設定して、特定のオプションに固有の色を付けました。色に基づいて対応するセルが編集可能になり、そのドロップダウンの行にある他のすべてのセルが読み取り専用になるようにマクロを作成したいと思います。

たとえば、A5 は「Toyota」として選択されます。これは、A5 のフォーマットが E2 と一致するため、5 行目の E5 のみが編集可能であることを意味します。

セルのスクリーンショット:

Answer 1

イベントを使用して、次のようにセルChangeのプロパティを変更できますLocked

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