次のサンプルでは、全セルのロックを解除してから、セルA1のみロックして
Protectメソッドで保護しています。

　保護を解除する方法は、このマクロを実行してセルA1に入力しようとすると
表示されるメッセージにも表示されますが、[ツール]メニューの[保護]−
[シート保護の解除]をクリックします。

Sub Sample1()

      Cells.Select

      Selection.Locked = False
      
      Range("A1").Select
      
      Selection.Locked = True
      
      ActiveSheet.Protect DrawingObjects:=True, _
                          Contents:=True, _
                          Scenarios:=True

End Sub