无需为每个控件编写control_KeyPress()，用Esc关闭Excel用户窗体

我之前也碰到过一模一样的麻烦——给几十个控件挨个写control_KeyPress()实在太费时间了！这里有个高效得多的方案，只需要配置一个窗体属性+一段全局事件代码就能搞定：

核心思路：利用窗体的KeyPreview属性 #

Excel用户窗体自带一个KeyPreview属性，把它开启后，所有控件的键盘事件会优先传递给窗体本身。这样我们只需要在窗体层面处理Esc键的逻辑，不用再给每个控件单独写代码。

具体操作步骤： #

1. 开启窗体的KeyPreview属性
   • 在VBE里打开你的用户窗体，右侧属性窗口找到KeyPreview，把它的值改成True（默认是False）。
2. 编写窗体的KeyDown事件代码
   • 双击窗体空白区域，在事件下拉菜单里选择KeyDown，然后粘贴以下代码：

     Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
         ' 检测是否按下Esc键（Esc的KeyCode是27）
         If KeyCode = 27 Then
             Me.Hide ' 如果需要彻底销毁窗体，换成Unload Me即可
             KeyCode = 0 ' 阻止事件继续传递给控件，避免触发其他意外操作
         End If
     End Sub
     

额外优化（可选）： #

如果需要在特定控件上禁用Esc功能（比如密码输入框），可以在事件里判断当前焦点控件：

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 27 Then
        ' 排除名为txtPassword的文本框
        If Not (TypeName(Me.ActiveControl) = "TextBox" And Me.ActiveControl.Name = "txtPassword") Then
            Me.Hide
            KeyCode = 0
        End If
    End If
End Sub

这个方法我在多个包含大量控件的项目里用过，完全替代了给每个控件写KeyPress的繁琐操作，亲测有效！

内容的提问来源于stack exchange，提问作者DukeSilver