去编写keydow
If e.Table.Cols(e.Table.ColSel).name = "第二列" Then If e.Control = True AndAlso e.keyCode = Keys.V Then e.cancel = True End IfEnd If