禁止指定列粘贴数据,下面代码可以达到要求。
'先设置全局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