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