events - ドロップダウンから選択したときにイベントをトリガーする

Question

ユーザーがドロップダウン メニューからオプションを選択すると、イベントがトリガーされ、特定の範囲のセルがロックされます。ロックダウン セルのコードを取得しましたが、ドロップダウン メニューを選択してもセルをロックできません。ドロップダウン メニューの文字列データの値は ZFB50 です。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$K$2" Then

    With Application
     .EnableEvents = False
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With

If Target.Address = "ZFB50" Then

    ActiveSheet.Unprotect

    Range("E8:E100").Select
    Selection.Locked = True

    Range("C8:C100").Select
    Selection.Locked = True

    Range("D8:D100").Select
    Selection.Locked = True

    Range("F8:F100").Select
    Selection.Locked = True

    Next cell

    ActiveSheet.Protect

    With Application
     .EnableEvents = True
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With

End If

End Sub

まだ動作しません。このコードに問題はありますか?