startEdit事件
If e.Col.name = "第一列" AndAlso e.Row("第二列") = "1" Then If vars("粘贴") = True Then e.cancel = True End IfEnd If
keyDow事件
If e.keycode = keys.V AndAlso e.control = True Then vars("粘贴") = TrueEnd If
keyUp事件
vars("粘贴") = False