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按AltF11打开VBA编辑器在左侧项目窗口中右键点击你的工作簿名称选择插入 → 模块将上面的代码粘贴到新模块中关闭VBA编辑器3.2 如何启动防息屏有几种方式可以启动这个脚本启动方式操作步骤适用场景快捷键启动按AltF8选择KeepAwake点击运行临时需要防息屏按钮触发在工作表插入按钮关联到KeepAwake宏频繁使用自动启动在Workbook_Open事件中调用KeepAwake长期需要提示如果使用自动启动方式建议添加条件判断比如只在特定时间段激活。3.3 如何停止脚本由于这是一个无限循环常规方法无法直接停止。推荐以下两种方式任务管理器结束进程按CtrlShiftEsc打开任务管理器找到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版本匹配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秒之间既能有效防止息屏又不会对系统资源造成明显负担。
Excel VBA防息屏神器：5分钟搞定自动鼠标点击脚本（附完整代码）
发布时间：2026/6/27 5:44:16
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按AltF11打开VBA编辑器在左侧项目窗口中右键点击你的工作簿名称选择插入 → 模块将上面的代码粘贴到新模块中关闭VBA编辑器3.2 如何启动防息屏有几种方式可以启动这个脚本启动方式操作步骤适用场景快捷键启动按AltF8选择KeepAwake点击运行临时需要防息屏按钮触发在工作表插入按钮关联到KeepAwake宏频繁使用自动启动在Workbook_Open事件中调用KeepAwake长期需要提示如果使用自动启动方式建议添加条件判断比如只在特定时间段激活。3.3 如何停止脚本由于这是一个无限循环常规方法无法直接停止。推荐以下两种方式任务管理器结束进程按CtrlShiftEsc打开任务管理器找到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版本匹配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秒之间既能有效防止息屏又不会对系统资源造成明显负担。
