Excel VBA7.1屏蔽Windows键和PrtSc键的RegisterHotKey方案卡顿问题求解

• 单线程死循环阻塞：VBA与Excel主UI共用同一线程，你的代码调用SetHotKey后直接进入ProcessMessages的无限循环，WaitMessage会挂起线程等待消息，整个Excel的UI交互都会被阻塞，表现为无响应。
• Win键注册参数错误：注册Windows键的代码里，RegisterHotKey最后一个参数代表按键虚拟码，你填写为0是无效值，正确的左Win键虚拟码为VK_LWIN = &H5B、右Win键为VK_RWIN = &H5C，需要分别注册。
• 未指定操作对象：代码里的WindowState = vbMinimized没有指定所属对象，应该写为Application.WindowState = vbMinimized，否则会触发运行时错误，也可能间接导致程序无响应。
• 两套代码逻辑冲突：你分开写了两套独立的热键注册逻辑，各自有独立的消息循环和全局变量，同时运行会出现资源冲突，应该合并为一套逻辑，同时注册两个热键、用同一个消息队列处理。

方案1：修改现有RegisterHotKey逻辑（推荐） #

不需要自己写死循环消息处理，改用子类化Excel主窗口的方式接管WM_HOTKEY消息，代码运行后不会阻塞Excel正常操作：

• 合并两个热键的注册逻辑，分别给Win键、PrintScreen键分配不同的热键ID
• 子类化Excel主窗口，在窗口消息回调中判断WM_HOTKEY的ID，执行对应逻辑（如果要屏蔽就直接返回，不做任何操作即可）
• 一定要在工作簿关闭、代码停止运行前卸载子类和热键，否则会直接导致Excel崩溃。如果需要屏蔽Win+组合键（如Win+E、Win+D等），RegisterHotKey的方式需要逐个注册对应组合键。

方案2：使用低级键盘钩子 #

如果注册热键的方式不符合需求，可以使用全局低级键盘钩子WH_KEYBOARD_LL，这种方式不需要注入DLL，VBA可以直接实现：

• 钩子回调中判断按键虚拟码，如果是Win键或者PrintScreen键直接返回非0值，就会拦截该按键消息，不会向下传递，可以直接拦截所有带Win键的组合操作，灵活度更高
• 同样要注意运行结束后必须卸载钩子，否则会导致系统键盘响应异常

• 所有涉及Windows API调用的VBA代码测试前一定要保存好文件，避免异常崩溃导致内容丢失
• 热键、钩子如果没有正常卸载，会残留到系统中，关闭Excel也无法恢复，需要重启电脑才能重置
• 如果只需要在Excel窗口激活时才屏蔽按键，可以在消息处理时增加当前激活窗口判断，非Excel窗口激活时不拦截按键
• 部分系统级快捷键（如Win+L锁机）优先级高于用户注册的热键，无法通过RegisterHotKey屏蔽，只能用钩子实现拦截

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