Excel VBA防息屏神器：5分钟搞定自动鼠标点击脚本（附完整代码）
你是否遇到过这样的场景：正在处理一份重要报表，突然被叫去开会，回来发现电脑已经锁屏，所有未保存的Excel数据全部丢失？或者需要长时间运行某个VBA宏，却因为系统自动息屏导致程序中断？对于无法修改系统设置的职场人士来说，这简直是噩梦般的体验。
今天我要分享的解决方案，只需要5分钟就能在Excel中创建一个自动防息屏工具。这个VBA脚本会模拟鼠标点击动作，让系统认为你一直在操作电脑，从而避免自动锁屏。最棒的是，它完全运行在Excel内部，不需要安装任何第三方软件，也不会留下明显痕迹。
1. 防息屏脚本的核心原理
Windows系统判断用户是否活跃主要基于三个指标：键盘输入、鼠标移动和鼠标点击。我们的脚本通过API调用模拟真实的鼠标行为，每隔一段时间执行以下操作：
- 获取当前鼠标位置
- 轻微移动鼠标（1-2像素）
- 模拟一次鼠标点击
- 随机间隔后重复上述过程
这种设计有几个关键优势：
- 隐蔽性：微小的鼠标移动不会干扰实际工作
- 随机性：间隔时间不固定，避免被识别为机械行为
- 兼容性：纯VBA实现，无需额外依赖
2. 完整代码实现
下面是防息屏脚本的完整代码，我已经添加了详细注释说明每个部分的功能：
' 声明API函数和类型 Private Type POINTAPI x As Long y As Long End Type ' 获取鼠标当前位置 Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ' 设置鼠标位置 Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long ' 模拟鼠标点击 Private 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 Long) ' 延时函数 Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' 鼠标事件常量 Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2 Private Const MOUSEEVENTF_LEFTUP As Long = &H4 ' 主程序 - 防息屏功能 Sub KeepAwake() Dim originalPos As POINTAPI Dim i As Long Dim waitTime As Long ' 获取初始鼠标位置 GetCursorPos originalPos ' 循环执行防息屏操作 For i = 1 To 10000 ' 足够大的循环次数 ' 轻微移动鼠标(1-2像素) SetCursorPos originalPos.x + 1, originalPos.y + 1 Sleep 50 ' 短暂延迟 ' 模拟鼠标点击 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 Sleep 50 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ' 恢复原始位置 SetCursorPos originalPos.x, originalPos.y ' 随机等待时间(30-120秒) waitTime = 30000 + Rnd * 90000 ' 30,000到120,000毫秒 Sleep waitTime Next i End Sub ' 停止防息屏(通过任务管理器结束Excel进程) Sub StopKeepAwake() MsgBox "请通过任务管理器结束Excel进程来停止防息屏功能", vbInformation End Sub3. 代码使用指南
3.1 如何安装脚本
- 打开Excel，按
Alt+F11打开VBA编辑器 - 在左侧项目窗口中，右键点击你的工作簿名称
- 选择"插入" → "模块"
- 将上面的代码粘贴到新模块中
- 关闭VBA编辑器
3.2 如何启动防息屏
有几种方式可以启动这个脚本：
| 启动方式 | 操作步骤 | 适用场景 |
|---|---|---|
| 快捷键启动 | 按Alt+F8，选择"KeepAwake"，点击"运行" | 临时需要防息屏 |
| 按钮触发 | 在工作表插入按钮，关联到"KeepAwake"宏 | 频繁使用 |
| 自动启动 | 在Workbook_Open事件中调用KeepAwake | 长期需要 |
提示：如果使用自动启动方式，建议添加条件判断，比如只在特定时间段激活。
3.3 如何停止脚本
由于这是一个无限循环，常规方法无法直接停止。推荐以下两种方式：
任务管理器结束进程：
- 按
Ctrl+Shift+Esc打开任务管理器 - 找到Excel进程，右键选择"结束任务"
- 按
预设时间停止： 修改代码中的循环次数，例如将
For i = 1 To 10000改为For i = 1 To 120，这样2小时后会自动停止（假设每次循环等待1分钟）。
4. 高级自定义选项
基础脚本已经能满足大多数需求，但你可能还想根据具体情况调整：
4.1 调整活动频率
修改waitTime的计算公式可以改变防息屏动作的频率：
' 更频繁的活动(10-60秒) waitTime = 10000 + Rnd * 50000 ' 更节省资源的版本(2-5分钟) waitTime = 120000 + Rnd * 1800004.2 添加可视化反馈
在工作表上添加状态显示：
' 在代码开头添加 Dim statusCell As Range Set statusCell = ThisWorkbook.Sheets(1).Range("A1") ' 在循环内添加 statusCell.Value = "防息屏运行中 - 下次活动: " & Format(Now + waitTime / 86400000, "hh:mm:ss")4.3 针对多显示器优化
如果你使用多显示器，需要确保鼠标移动在有效范围内：
' 获取屏幕分辨率 Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN As Long = 0 Private Const SM_CYSCREEN As Long = 1 ' 在KeepAwake过程中添加边界检查 Dim screenWidth As Long, screenHeight As Long screenWidth = GetSystemMetrics(SM_CXSCREEN) screenHeight = GetSystemMetrics(SM_CYSCREEN) ' 确保鼠标位置有效 If originalPos.x >= screenWidth Then originalPos.x = screenWidth - 10 If originalPos.y >= screenHeight Then originalPos.y = screenHeight - 105. 常见问题排查
即使是最简单的脚本也可能遇到问题。以下是几个常见情况及解决方法：
5.1 脚本无效，电脑仍会息屏
可能原因及解决方案：
系统策略限制：
- 某些公司IT策略会覆盖应用程序行为
- 尝试缩短等待间隔（如改为10-30秒）
Excel权限不足：
- 确保以管理员身份运行Excel
- 检查宏安全性设置（应启用宏）
API声明错误：
- 64位Office需要使用
PtrSafe关键字 - 确认代码中的API声明与你的Office版本匹配
- 64位Office需要使用
5.2 脚本导致Excel卡顿
优化建议：
- 增加等待时间（减少活动频率）
- 移除不必要的状态更新（如工作表单元格写入）
- 使用更轻量级的活动方式：
' 替代方案：仅移动鼠标不点击 SetCursorPos originalPos.x + 1, originalPos.y Sleep 50 SetCursorPos originalPos.x, originalPos.y5.3 如何判断脚本是否在运行
检测方法：
- 观察鼠标指针是否有微小移动
- 在VBA编辑器中查看运行状态（可能显示"正在运行"）
- 添加日志记录功能：
' 在模块顶部添加 Private logCount As Long ' 在循环内添加 logCount = logCount + 1 Debug.Print "活动次数: " & logCount & ", 最后活动时间: " & Now注意：长时间运行后，日志可能会影响性能，建议仅在调试时启用。
6. 企业环境下的注意事项
在公司电脑上使用此类脚本需要特别小心：
合规性检查：
- 先确认公司IT政策是否允许
- 某些监控软件可能检测到此类活动
低调使用技巧：
- 将等待时间设置为随机长间隔（如5-10分钟）
- 避免在工作时间外持续运行
- 不要与其他同事分享此脚本
备选方案：
- 与IT部门沟通，申请延长息屏时间
- 使用物理设备（如鼠标摇动器）可能更隐蔽
这个VBA防息屏脚本我已经在实际工作中使用了两年多，特别是在处理大型数据模型需要长时间运行计算时特别有用。最关键的技巧是设置合理的随机间隔，太频繁会影响性能，太稀疏又可能被系统忽略。我的经验值是60-180秒之间，既能有效防止息屏，又不会对系统资源造成明显负担。
