スキルアップ・問題解決なら、モーグにおまかせ！

次のサンプルでは、全セルのロックを解除してから、セル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