こんにちは、私はExcelの他のシートの値に基づいてExcelシート内のセルをロックしようとしています

Question

私は他の人には完全に動作するようですが、私のケースでは動作しないような様々なコードを試しました。シートにコードを書き込む前に、シートのすべてのセルがロックされていると表示されます。私はここで立ち往生し、ここで何ができるのか分からない。

私はこのコードを試しましたが、何もロックされていないと思われます。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Range("A1") = "Accepting" Then 
     Range("B1:B4").Locked = False 
    ElseIf Range("A1") = "Refusing" Then 
     Range("B1:B4").Locked = True 
    End If 


End Sub 

Answer 1

シートを保護しない限り、範囲をロックしても効果はありません。

たとえばRange("B1:B4").Locked = Trueは、YourWorksheet.Protectを実行するまで機能しません。その後、YourWorksheet.Unprotectを実行して保護を解除することができます。