本帖最后由 haotian 于 2011-12-22 11:13 编辑
用VB代码实现锁定指定行,加入ES后发现不能用插入行向下扩展,请大家测试完善,如何在 ES上更好使用哦
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C" & Target.Row).Value = "是" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":B" & Target.Row)
.Locked = True
.FormulaHidden = True
.Interior.ColorIndex = 6
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ElseIf Range("C" & Target.Row).Value = "否" Then
ActiveSheet.Unprotect
With Cells
.Locked = False
.FormulaHidden = False
End With
With Range("A" & Target.Row & ":B" & Target.Row)
.Locked = False
.FormulaHidden = False
.Interior.ColorIndex = Null
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
|