主题：禁止A列复制

keydown、keydownedit事件

If (e.keycode = keys.x OrElse e.keycode = keys.c) AndAlso e.control = True Then
    If e.Table.cols(e.Table.colsel).name = "第一列" Then
        msgbox("禁止复制")
        e.cancel = True
    End If
End If