如何仅在Excel 2010中禁用Scroll Lock且保留键盘按键功能

需求明确：仅在Excel环境内屏蔽Scroll Lock的滚动锁定功能，保留按键本身的触发逻辑、不改变键盘对应LED指示灯的亮灭规则，不影响其他软件内Scroll Lock的正常使用，以下是可直接落地的方案：

方案1：单工作簿生效的VBA实现 #

操作步骤：

1. 打开目标Excel文件，按Alt+F11快捷键调出VBA编辑器
2. 在左侧工程资源管理器面板中，双击当前工作簿下的ThisWorkbook对象，打开代码编辑区
3. 将以下适配64位Office的代码粘贴到编辑区：

' 64位系统API声明，读取系统按键状态
Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_SCROLL = &H91
' 监听Excel全局应用事件
Dim WithEvents App As Application

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' 检测到系统层面Scroll Lock开启时，仅重置Excel内部滚动锁定状态，不修改全局按键状态
    If GetKeyState(VK_SCROLL) And 1 = 1 Then
        Application.ScrollLock = False
    End If
End Sub

Private Sub Workbook_Open()
    Set App = Application
End Sub

4. 将文件保存为*.xlsm（启用宏的工作簿）格式，后续打开文件时选择启用宏即可生效。

方案2：全Excel环境生效的加载宏实现 #

如果需要所有打开的Excel文件都自动应用该规则，可将代码封装为加载宏：

1. 新建空白Excel工作簿，按照方案1的步骤将代码写入ThisWorkbook对象
2. 另存时选择文件格式为Excel 加载宏 (*.xlam)，保存到Office默认的加载项目录
3. 打开Excel选项→加载项，底部「管理」选项选择「Excel加载项」后点击「转到」，勾选你刚保存的加载宏，确认后即可对所有本地打开的Excel文件生效。

避坑说明 #

• 不要使用全局改键类工具拦截Scroll Lock按键，这类工具会直接阻断按键的系统级触发，会导致键盘LED指示灯逻辑异常，同时会让所有软件的Scroll Lock功能失效，不符合需求。
• 64位Excel 2010的API声明必须带PtrSafe关键字，否则运行时会触发编译错误。
• 上述方案仅修改Excel内部的滚动锁定状态，不会改动系统层面的Scroll Lock开关：键盘LED会随你按下/松开Scroll Lock的操作正常亮灭，其他软件中Scroll Lock的功能完全不受影响。

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