vba中如何设置某些区域只能点击，而不能进入编辑状态？
代码小白鼠，目前东拼西凑想达到设置区域能点击选中但不能编辑的效果，但始终达不到效果。如图达到黄色部分能选中不能编辑的效果。求大神帮忙，十万分感谢！！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 100 Step 1
If Target.Address = Cells(i, 2).Address Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
Next i
