主题：如何让粘贴操作无效

禁止指定列粘贴数据，下面代码可以达到要求。

'先设置全局var变量"ztb"

'BeforeSelChange 进入指定列时,清除剪贴板内容
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "第六列"
        If ClipBoard.ContainsText Then
            Vars("ztb") = ClipBoard.GetText()
            ClipBoard.Clear()
        End If
End Select

'AfterSelChange 离开指定列,内容重新读入剪贴板
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
Select Case c.name
    Case "第六列"
 Case Else
        If ClipBoard.ContainsText = False And ClipBoard.ContainsImage = False Then
            If Vars("ztb") IsNot Nothing Then
                ClipBoard.SetText(Vars("ztb"))
            End If
        End If
End Select