HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > 複数のセルを一度に変更することを禁止する

複数のセルを一度に変更することを禁止する|Excel VBA

セル操作関連のテクニック

複数のセルを一度に変更することを禁止する

(Excel 97/2000/2002/2003/2007/2010)

次のサンプルは、クリアやペースト、一括入力などにより、一度に複数のセルが変更されることを禁止します。対象とするシートのシートモジュールに記述してください。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then
        MsgBox "複数セルの変更はできません。", vbCritical
        With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
        End With
    End If
End Sub