文書番号: 401684
最終更新日: 1998/02/06
Option Explicit
Sub CancelKeySample()
Dim c, r As Integer
Application.EnableCancelKey = xlDisabled
For r = 1 To 20
For c = 1 To 4
Worksheets("Sheet1").Cells(r, c).Value = 1
Next c
Next r
Application.EnableCancelKey = xlInterrupt
End Sub
Keywords: KBHOWTO KB401684
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch