シートの保護について

質問

特定のセル("C3:I3")を編集不可にしたいのですが、
下記プログラムにするとすべてのセル（シート）が保護されてしまいます。

どこがおかしいのでしょうか。

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect
・・・・・・・・・・
Range("C3:I3").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

回答No.2

imogasi

Sub test01()
ActiveSheet.Unprotect
Cells.Locked = False
Range("C3:I3").Locked = True
ActiveSheet.Protect
End Sub

回答No.1

redfox63

Excelのセルは 標準でLocked＝Trueですので

ActiveSheet.Cells.Locked = False
を実行してから ロックしたいセル範囲のLockedプロパティを Trueにしましょう