VBA 程序运行中禁用鼠标键盘

1. Application.Interactive

False：Excel 将阻止键盘和鼠标的所有输入，但代码显示的对话框的输入不受影响。

True：打开交互模式。

下面的代码程序一旦运行就会限定在Excel的事先选定的单元格输出。

如果注释掉Application.Interactive = False的话，输出会跟随鼠标选定的单元格即时输出。

Option ExplicitSub DisableMouse()Dim i As LongOn Error GoTo ErrHandle:'禁止交互Application.Interactive = FalseFor i = 1 To 3000DoEventsSelection = iNext i'恢復交互Application.Interactive = TrueExit Sub
ErrHandle:'恢復交互Application.Interactive = TrueMsgBox Err.DescriptionEnd Sub