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

陈国华

sj15627581616 发表于 2024-12-23 12:43
用这个吧

这个也无法禁止ESC,我现在觉得VBA是不支持禁止ESC的，只能采取曲线救国
目前情况如下：窗体初始化开始后，按下ESC会发生文件打不开的错误，错误代码：1004，用on error resume next忽略错误，但需要检测文件是否成功打开，当发现文件打开失败时需要自动重新打开，现在关键问题就在这里。无论怎么做，重新打开的时候仍然报错，无法逾越，但如果手动单步调试则可以重新打开，奇怪！

sj15627581616

陈国华 发表于 2024-12-23 14:40
这个也无法禁止ESC,我现在觉得VBA是不支持禁止ESC的，只能采取曲线救国
目前情况如下：窗体初始化开始后 ...

你怎么测试的？代码运行期间你还能通过按ESC终止运行？

chenjx80

陈国华 发表于 2024-12-23 12:25
今天又研究了一下解决方案，现在问题如下：
窗体初始化开始后，第1次打开文件（此时按下ESC键）会出现如下 ...

哈哈，巧了，前两天碰巧就遇到了这个问题，好在我已经解决了，现在记录在我的《踩坑集录》里面。

陈国华

chenjx80 发表于 2024-12-23 16:51
哈哈，巧了，前两天碰巧就遇到了这个问题，好在我已经解决了，现在记录在我的《踩坑集录》里面。

分享一下如何？

陈国华

lss001 发表于 2024-12-23 13:35
请上传附件测试
特殊情况下才使用
Application.Interactive = 0

这两种代码都无法阻止ESC

lss001

陈国华 发表于 2024-12-24 12:56
这两种代码都无法阻止ESC

没有附件，只能是猜测而已啦？

陈国华

lss001 发表于 2024-12-23 13:35
请上传附件测试
特殊情况下才使用
Application.Interactive = 0

请看如下代码：
此过程要多次打开多个文件，每次按下ESC就会发生打开文件错误，后续处理后第二次自动打开（此时没有ESC干扰）就无论如何也打不开了，提示的错误和第一次一样，错误编码1004，我理解这个问题的关键是一旦在打开文件时受阻，除非手动调试才可以再次打开文件，否则就永远打不开，即使此时去打开另一个文件也一样打不开。我的目的很简单：第一次受到干扰后自动重新打开文件即可，整个过程不受影响。
Private Sub UserForm_Initialize()
Application.EnableCancelKey = xlDisabled
On Error Resume Next
c = 0
MM:
Debug.Print "第" & c + 1 & "次打开MM"
Set wc = Workbooks.Open(ThisWorkbook.Path & "\Manage\MM.xlsx", ReadOnly:=True, Password:="")
If Err Then
   If c = 1 Then Exit Sub
   c = c + 1
   GoTo MM
End If
With wc
    brra = .Sheets(1).Range("h1").CurrentRegion
    crr3 = .Sheets(1).Range("a1").CurrentRegion
    crr4 = .Sheets(4).Range("a1").CurrentRegion
    nm = .Sheets(1).Name
   .Close False
End With
For i = 1 To UBound(brra)
   da(brra(i, 1)) = brra(i, 2)
Next
.................此处省略1万字
end sub