セルを編集不可にする方法【VBA】

2023年6月28日2023年12月19日

経緯

Excelで特定のセルに入力できないようにしようとしました。「セルをロックして、シードの保護で…」ってやるのは時間がかかるので、同じようなことがVBAでできないか、

今回勉強しました。

「Worksheet_Change」イベントを使う

まず、コードを書きます。セル”J5からJ7″と”M5″に入力規制をして、入力したら、エラーメッセージが出る設定です。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("M5", "J5:J7")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
        MsgBox "このセルの編集は許可されていません。", vbExclamation
    End If
End Sub

という感じでできました。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。