用VB代码实现锁定指定行，加入ES后发现不能用插入行向下扩展，请大家测试完善。

haotian

用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

chudfm32

苦难是一所学校，斗志坚强的人在这所学校优秀地毕业，坦荡地走身世界未来，克服了人生道路上一个又一个的困难，而斗志薄弱者则过早辍学，在苦难面前，在逆境面前倒下了。