'以下は10万行まで数字を入力するマクロですが、その操作をキャンセル出来なくします。
Sub Sample31()
'Ctrl+Break キー、Esc キーなど割り込みを無視する
Application.EnableCancelKey = xlDisabled
For I = 1 To 100000
Range("A" & I).Value = I
Next I
'元に戻す
Application.EnableCancelKey = xlInterrupt
End Sub