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

wuchunyu0022024-08-08 13:50

1. Application.Interactive

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

True：打开交互模式。

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

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

vbscript 复制代码

Option Explicit

Sub DisableMouse()
    Dim i As Long
    
 On Error GoTo ErrHandle:
    
    '禁止交互
    Application.Interactive = False
    
    For i = 1 To 3000
        DoEvents
        Selection = i
    Next i
    
    '恢復交互
    Application.Interactive = True
    
    Exit Sub
ErrHandle:
    '恢復交互
    Application.Interactive = True
    MsgBox Err.Description
    
End Sub