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