代码运行过程中禁用鼠键

 当代码量特别大的时候，如果代码会因为鼠标或者键盘的操作导致代码运行出现bug，就可以在主代码运行之前加上Application.Interactive = False就可以了。

记住一定要在最后复原，不然会导致代码运行完了，鼠标键盘还是无法操作的情况，最后只能强行关闭excel程序。

Sub test()
Application.Interactive = False                ‘禁用鼠键

For i = 1 To 10000
DoEvents
Selection = i
Next i

Application.Interactive = True                ’打开鼠键
End Sub

以下动态图可以看出，禁用鼠键后，鼠标的图标变成了沙漏，代表着无法操作。 

代码最后Application.Interactive = true，即恢复了鼠键控制权，可以看到鼠标变成了十字架。

如果没有禁用鼠键，效果如下所示，可以看到鼠键是十字架，点哪儿，哪儿会记入i值。

 

以上就是VBA禁用鼠键的代码