先前锁定的单元格根据目标行值解锁

Sub UnlockPreviousRow(Target As Range) Dim PreviousRow As Integer Dim CurrentRow As Integer

'获取目标单元格的行号
CurrentRow = Target.Row

'将先前已锁定的单元格解锁
For PreviousRow = 1 To CurrentRow - 1
    If Cells(PreviousRow, Target.Column).Locked = True Then
        Cells(PreviousRow, Target.Column).Locked = False
    End If
Next PreviousRow

End Sub

在这个例子中，当用户在单元格中输入任何内容时，该行之前（包括该行）的所有单元格将被解锁。 要使用这个代码，只需将其复制并粘贴到工作簿的模块中，并在需要解锁先前已锁定的单元格时调用该子例程。