Excelシート：セルをロックし、ドロップダウンオプションに基づいて "1"を書き込みます。

Question

B18のドロップダウンで特定のオプション（ "T"）を選択すると、セルB20をロックして "1"を書き込みます。私が他のオプションを選択した場合、何の制限もなく普通にそれを埋めることができるようにしたい。ここで私が試した最良のコードは次のとおりです。

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim ws As Worksheet 
Set ws = ActiveSheet 

If Target.Address = "$B$18" Then 

    ws.Unprotect 

    Application.EnableEvents = False 

    Target.Offset(1).Locked = Target.Value = "T" 

    If Target.Value = "T" Then 
     Target.Offset(1).Value = 1 
    Else 
     If Target.Offset(1).Value = 1 Then Target.Offset.Value = "" 
    End If 

    Application.EnableEvents = True 

    ws.Protect 
End If 


End Sub 

このコードは、私がしたい正確に何やっているが、その代わりに、B20のセルB19でこれを実行します。

誰かが私を助けてくれますか？

Answer 1

質問にはさまざまなことを言っているコードやテキストがたくさんあるので、このコードはあなたのコメントとあなたの質問のテキストに基づいています。

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Target.Address = "$B$18" Then 

     ws.Unprotect 

     Application.EnableEvents = False 

     Target.Offset(2).Locked = Target.Value = "T" 

     If Target.Value = "T" Then 
      Target.Offset(2).Value = 1 
     Else 
      If Target.Offset(2).Value = 1 Then Target.Offset.Value = "" 
     End If 

     Application.EnableEvents = True 

     ws.Protect 

    End If 

End Sub