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

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

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

(Excel 97/2000)
サンプルマクロは、一度に複数のセルが変更されること（クリア、ペーストなどで）を禁止します。禁止したいシートのコードウインドウに記述してください。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRow As Long

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

End Sub