如何在Excel中满足关联条件时锁定指定单元格（VBA相关）

核心逻辑说明 #

要实现这个需求，关键是先解除工作表保护→匹配标识符→设置单元格锁定→重新保护工作表——因为Excel默认单元格是锁定状态，但只有在工作表保护生效时才会禁止编辑。

可直接复用的VBA代码 #

Sub LockMatchedRows()
    Dim wsPay As Worksheet, wsBill As Worksheet
    Dim payLastRow As Long, billLastRow As Long
    Dim i As Long, j As Long
    Dim matchFound As Boolean
    Dim protectPwd As String
    
    ' 自定义参数：改成你的实际配置
    Set wsPay = ThisWorkbook.Worksheets("付款信息表") ' 第一个工作表（付款记录）
    Set wsBill = ThisWorkbook.Worksheets("账单信息表") ' 第二个工作表（账单记录）
    Const PAY_ID_COL As Integer = 1 ' 付款表标识符所在列（A列=1，B列=2，以此类推）
    Const BILL_ID_COL As Integer = 2 ' 账单表标识符所在列
    protectPwd = "123456" ' 工作表保护密码，不需要则留空("")
    
    ' 1. 解除付款表的保护（如果已保护）
    On Error Resume Next ' 忽略未保护的报错
    wsPay.Unprotect Password:=protectPwd
    On Error GoTo 0
    
    ' 获取两个表的最后有效行号
    payLastRow = wsPay.Cells(wsPay.Rows.Count, PAY_ID_COL).End(xlUp).Row
    billLastRow = wsBill.Cells(wsBill.Rows.Count, BILL_ID_COL).End(xlUp).Row
    
    ' 2. 遍历付款表的每一行标识符
    For i = 2 To payLastRow ' 从第2行开始（假设第1行是表头）
        matchFound = False
        ' 遍历账单表找匹配的标识符
        For j = 2 To billLastRow
            If wsPay.Cells(i, PAY_ID_COL).Value = wsBill.Cells(j, BILL_ID_COL).Value Then
                matchFound = True
                Exit For ' 找到匹配就跳出循环，提升效率
            End If
        Next j
        
        ' 3. 根据匹配结果设置锁定状态
        If matchFound Then
            ' 锁定整行；如果只想锁部分单元格，改成指定范围，比如 wsPay.Range("A" & i & ",C" & i & ",D" & i).Locked = True
            wsPay.Rows(i).Locked = True
        Else
            ' 未匹配的行解锁（可选，按需调整）
            wsPay.Rows(i).Locked = False
        End If
    Next i
    
    ' 4. 重新保护付款表
    wsPay.Protect Password:=protectPwd, UserInterfaceOnly:=True
    ' UserInterfaceOnly:=True 表示VBA仍可修改单元格，下次打开文件无需重复解除保护
    
    MsgBox "匹配锁定操作完成！"
End Sub

操作步骤（针对VBA新手） #

1. 打开你的Excel文件，按 Alt + F11 打开VBA编辑器
2. 在左侧「工程资源管理器」中右键点击你的工作簿，选择「插入」→「模块」
3. 将上面的代码粘贴到模块窗口中
4. 修改代码开头的自定义参数：把工作表名称、标识符列号、保护密码改成你实际的配置
5. 按 F5 运行代码，或者回到Excel界面，按 Alt + F8 选择LockMatchedRows执行

注意事项 #

• 若不需要锁定整行，只锁标识符单元格和特定字段，把代码里的wsPay.Rows(i).Locked = True改成指定范围，比如wsPay.Range("A" & i & ",C" & i & ",D" & i).Locked = True（A列是标识符，C、D列是金额、到账时间）
• 保护密码可留空，但建议设置防止误操作
• 可以把代码绑定到Excel的表单按钮上，方便日常一键执行

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