Windows Pro及更新后Home版Excel键鼠控制宏执行中断问题求助

一、Windows Pro版的安全差异点 #

• Windows Pro默认启用了**用户账户控制(UAC)**的更严格级别，针对涉及系统级操作（如键鼠模拟）的VBA代码，会触发执行中断；而Home版默认UAC级别较低，早期版本未限制这类API调用。
• 自动更新后Home版也失效，是因为更新补丁强化了Office的宏安全策略，尤其是针对user32.dll这类系统API的调用限制。

二、可行的解决方法 #

1. 调整UAC设置 #

• 打开「控制面板」→「用户账户」→「更改用户账户控制设置」，将滑块拉到**「从不通知」**（仅测试用，不推荐长期使用），重启电脑后再运行宏。
• 若不想降低全局UAC，可右键Excel图标，选择「以管理员身份运行」，再打开文件执行宏。

2. 修改Office宏安全策略 #

• 打开Excel，依次点击「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」：
  • 勾选「启用所有宏（不推荐；可能会运行有潜在危险的代码）」（仅在信任该文件时使用）
  • 或者添加该文件所在文件夹到「受信任位置」，该文件夹内的文件会被Office信任，不受宏安全限制。

3. 优化VBA代码兼容性 #

• 原代码未自动适配32/64位系统，建议添加版本判断避免位数不匹配错误：

#If VBA7 Then
    ' 64位Office/Windows
    Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As LongPtr, ByVal y As LongPtr) As LongPtr
    Public Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As LongPtr)
#Else
    ' 32位Office/Windows
    Public Declare Function SetCursorPos Lib "user32" (ByVal j As Long, ByVal k As Long) As Long
    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
#End If

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10

Sub MouseClickDemo()
    Call SetCursorPos(600, 350)
    Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub

• 注：mouse_event已被微软标记为过时API，若后续仍有拦截问题，可替换为SendInput（兼容性更好，但声明逻辑更复杂）。

4. 调整VBA工程访问权限 #

• 在信任中心设置中，找到「宏设置」下的「信任对VBA工程对象模型的访问」，勾选该选项（此设置会降低Office安全性，仅必要时开启）。

三、关键说明 #

• 所有操作需确保文件来源安全，避免运行恶意宏。
• Windows更新后可能重置安全设置，需重新调整对应选项。

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