比如有个表格,其中A1:B15的内容你不希望别人改动。那么你就可以使用这个来判断别人是否单击了其中的某个单元格,然后采取相应的措施,比如我这里是将光标移出该区域。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:B15")) Is Nothing Then
Target.Offset(0, 2).Select
End If
End Sub