VBA セルをロックする

セルをロックする

Sub test()

　　' ロックする
　　Range("A1").Locked = True

End Sub

※注意　シートが保護されていない場合は、LockedプロパティをTrueに設定しても、セルのロックは有効になりません。

シートの保護について、以前説明した記事を参考してくだだい。

セルロックの解除

Sub test2()

' セルロックの解除
Range("A1").Locked = False

End Sub

EXCELのデフォルト設定では、ロック有効になっています。実務上では、ユーザーが編集可能なところだけ、ロックを解除した上、シートの保護をかけます。

下記の「在庫管理表」を例にして、実務でセルをロックする方法を見てみましょう。

Sub test3()

' セルロックの解除
Range("B2:E6").Locked = False
Range("A6:C16").Locked = False
Range("E6:E16").Locked = False

Sheets("在庫管理").Protect Password:="PassWord"

End Sub

"B2:E6"など編集可能なセルについて、まずロックを解除します。そこから、シートの保護をかけることで、実質上青枠"D5:D16"がロックが保護されます。