VBA窗体运行中如何禁用ESC键

陈国华

我设计了一个VBA窗体，运行时有多次打开不同文件提取数据，因为不希望打开过程有ESC中断，使用了Application.EnableCancelKey = xlDisabled，但打开文件这部分代码是无法禁止ESC的，Set wc = Workbooks.Open(ThisWorkbook.Path & "\Manage\MM.xlsx", ReadOnly:=True, Password:="444")，只要按下ESC仍然会出现打开过程中断，虽然使用了On Error Resume Next跳过错误，但文件打开是失败的，没有提取到数据，我在ESC发生后加了判断，如果文件打开失败就重新打开，但以后再次打开该文件发现无论尝试多少次，即使不再使用ESC依旧失败,这个问题怎么解决？好像是第一次打开问题被中断后产生了一个错误，但无法从根本上消除其影响，请高手不吝赐教！错误代码91，请参考！

sj15627581616

不是很能理解 在代码作业期间 去按ESC是为了什么，盲猜你需要这个Application.Interactive = False

laterite

这个问题我之前也问过

https://club.excelhome.net/thread-1652553-1-1.html

lss001

'可以试试屏蔽键盘鼠标
Application.Interactive = False
Application.Interactive = True

陈国华

laterite 发表于 2024-12-22 19:25
这个问题我之前也问过

https://club.excelhome.net/thread-1652553-1-1.html

多谢帮助，我这个比你的复杂，这个方法解决不了，我是在窗体初始化过程遇到的这个问题

陈国华

lss001 发表于 2024-12-22 19:38
'可以试试屏蔽键盘鼠标
Application.Interactive = False
Application.Interactive = True

好的，明天试试，谢谢先

陈国华

lss001 发表于 2024-12-22 19:38
'可以试试屏蔽键盘鼠标
Application.Interactive = False
Application.Interactive = True

实测这个方法对于ESC无效，窗体初始化过程中按下ESC键仍然会发生错误而终止，而且这个要慎用，它对其它操作有影响，什么都干不了

陈国华

今天又研究了一下解决方案，现在问题如下：
窗体初始化开始后，第1次打开文件（此时按下ESC键）会出现如下现象：
1、显示错误代码1004
2、程序自动忽略错误后尝试第二次打开结果显示如下：
方法 'Open' 作用于对象 'Workbooks' 时失败，
但如果手动单步调试第二次打开文件则没有任何问题
采用Err.clear也无效，有懂行的高手过来看看吗

sj15627581616

1. Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
   
2. Sub BlockKeyboardInput()
   
3.     ' 阻止键盘鼠标输入
   
4.     Call BlockInput(True) '可以通过Ctrl+Alt+Dlete 取消
   
5.     '此处执行自己需要运行的代码
   
6.     ' 完成后取消阻止键盘输入
   
7.     Call BlockInput(False)
   
8. End Sub

复制代码

用这个吧

lss001

请上传附件测试
特殊情况下才使用
Application.Interactive = 0
阻止Esc一般情况下都是使用
Application.EnableCancelKey = 0