求助：运行VBA宏时NUM LOCK反复开关，与工作表保护代码有关

问题背景 #

一开始误以为是Windows 10的系统问题，试了各种方案都没用，后来才发现是运行这段VBA宏时，NUM LOCK会被自动禁用再重新启用。把代码里和工作表保护相关的部分删掉后，这个异常就消失了。补充说明：当初加保护相关代码是为了让VBA不用输密码就能编辑受保护的工作表。

原问题代码：

Sub NewLineInventory()

Dim ws As Worksheet
Dim isProtected As Boolean

Set ws = ThisWorkbook.Sheets("Inventory")

' Checks if the worksheet is protected
isProtected = ws.ProtectContents

    ' Use error handling to ensure the worksheet is protected again
    On Error Resume Next

    ' Code to make edits in the worksheet
    Range("A4").EntireRow.Insert

    Range("A5:W5").Copy
    Range("A4").PasteSpecial
    Range("E4").ClearContents
    Range("R4").ClearContents
    Range("T4").ClearContents
    Range("A4") = "No"

    SendKeys ("{ESC}")

    ' Reset error handling
    On Error GoTo 0

End Sub

原因说明 #

这种NUM LOCK异常跳变的情况，本质是Excel处理工作表保护状态时的内部机制触发的：

• 当VBA调用ws.ProtectContents判断保护状态时，Excel后台可能会临时调整键盘输入状态（包括NUM LOCK），来适配保护模式下的交互逻辑。
• 再加上代码里用了On Error Resume Next，如果后续出现隐性权限问题（比如未解除保护就执行编辑操作），错误被掩盖后，Excel无法正确恢复NUM LOCK的原始状态，就出现了禁用又重新启用的现象。
• 另外原代码并未实现“解除保护→编辑→恢复保护”的完整逻辑，仅判断了保护状态却未执行实际的解除操作，反而导致Excel的状态处理逻辑混乱。

修复方案（兼顾编辑权限与避免NUM LOCK异常） #

要实现VBA无密码编辑受保护工作表，需把保护状态的切换流程写完整，同时去掉容易掩盖问题的错误处理：

Sub NewLineInventory()
    Dim ws As Worksheet
    Dim isProtected As Boolean
    
    Set ws = ThisWorkbook.Sheets("Inventory")
    isProtected = ws.ProtectContents
    
    ' 先解除保护（无密码则留空引号）
    If isProtected Then
        ws.Unprotect Password:=""
    End If
    
    ' 执行编辑操作，用ws限定Range避免工作表歧义
    ws.Range("A4").EntireRow.Insert
    ws.Range("A5:W5").Copy
    ws.Range("A4").PasteSpecial
    ' 合并ClearContents写法更简洁
    ws.Range("E4,R4,T4").ClearContents
    ws.Range("A4") = "No"
    SendKeys ("{ESC}")
    
    ' 恢复原来的保护状态
    If isProtected Then
        ws.Protect Password:=""
    End If
End Sub

为什么这个方案能解决问题？ #

• 明确的保护切换流程让Excel能清晰处理状态变化，不会触发内部的键盘状态异常。
• 去掉On Error Resume Next后，权限相关的问题会直接暴露，方便排查，也避免了错误导致的状态无法恢复。

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