EXCEL锁定特定行

天狼

当是否锁定为“是”时，即锁定这一行，任何人不可修改（如A2：J2这个范围），只能为“否”时才可修改，或者让用户无法选择这一行也同样无法修改，同时给不可修改的这个范围的单元格增加一个颜色区别。行是不确定的
假设是否锁定这列在“K”列，那么请按ALT+F11打开VBA窗口，粘贴以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("K" & Target.Row).Value = "是" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":J" & Target.Row)
.Locked = True
.FormulaHidden = True
.Interior.ColorIndex = 6
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf Range("K" & Target.Row).Value = "否" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":J" & Target.Row)
.Locked = False
.FormulaHidden = False
.Interior.ColorIndex = Null
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub