涛声依旧在 发表于 2024-8-10 11:48:48

VBA 步伐运行中禁用鼠标键盘

1. Application.Interactive

False：Excel 将制止键盘和鼠标的所有输入，但代码体现的对话框的输入不受影响。
True：打开交互模式。
下面的代码步伐一旦运行就会限定在Excel的事先选定的单位格输出。
如果注释掉Application.Interactive = False的话，输出会跟随鼠标选定的单位格即时输出。
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

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。
页: [1]
查看完整版本: VBA 步伐运行中禁用鼠标键盘