在VB.NET的Excel单元格中限制粘贴（Ctrl-V）

我有一个场景，通过VB.NET生成和validationExcel单元格的值与date单元格，一切工作正常，当我在单元格中键入一个值，但是当我在单元格中复制粘贴任何string值它接受，永远不会validation。

问题：我想限制从VB.NET的单元格粘贴（Ctrl-V）。 我怎样才能做到这一点？

这是我的代码：

worksheet.Range(DateRange).Validation.Delete() worksheet.Range(DateRange).Validation .Add(ValidationType.Date, ValidationAlertStyle.Stop, ValidationOperator.Greater, dt, Nothing) worksheet.Range(DateRange).NumberFormat = "mm/dd/yyyy" worksheet.Range(DateRange).Validation.IgnoreBlank = True worksheet.Range(DateRange).Validation.InputTitle = "Excel Validation" worksheet.Range(DateRange).Validation.ErrorTitle = "Error in Date" 

Answer 1

这是find的东西

 Private Sub Workbook_Activate() Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_Deactivate() Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) Application.CutCopyMode = False Application.OnKey "^c", "" Application.CellDragAndDrop = False End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) Application.CellDragAndDrop = True Application.OnKey "^c" Application.CutCopyMode = False End Sub Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox "Right click menu deactivated." & vbCrLf & _ "Cannot copy or ''drag & drop''.", 16, "For this workbook:" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.CutCopyMode = False End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.OnKey "^c", "" Application.CellDragAndDrop = False Application.CutCopyMode = False End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Application.CutCopyMode = False End Sub 

来源： http ： //www.mrexcel.com/forum/showthread.php？t = 84495