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

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
相关推荐
Access开发易登软件8 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表8 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
Lilixxs8 天前
VBA 中使用 ADODB 操作 SQLite 插入中文乱码问题
数据库·中间件·sqlite·乱码·vba·odbc·adodb
只会HelloWorld的华娃21 天前
VBA模板记录
microsoft·vba
Access开发易登软件1 个月前
Access开发右下角浮窗提醒
microsoft·vba·access·access开发
Access开发易登软件2 个月前
Access开发一键删除Excel指定工作表
服务器·前端·后端·excel·vba·access·access开发
Prodigy_kyw2 个月前
VBA初学3----实战(VBA实现Excel转csv)
excel·vba·csv
yivifu3 个月前
利用VBA将Word文档修改为符合EPUB3标准规范的HTML文件
word·vba·epub
Learn-Share_HY4 个月前
[Excel VBA]如何製作買三送一優惠條件的POS結帳介面?
excel·vba·office·自動化·自動化辦公
shandianchengzi4 个月前
【工具】Quicker/VBA|PPT 在指定位置添加有颜色的参考线
powerpoint·vba·ppt·quicker