如何设置才能限制录入人复制粘贴，只默认录入数值

ocr37

因为部分老师在其他成绩表格带有格式，复制时候经常会把格式也带过来，改变整个表的样式，我想限制她们复制时候都只能数值形式，另外，她们有的选择性粘贴也不会的

quqiyuan

vba可以，现学现用，百度代码，测试可用，你看看。。。

quqiyuan

代码放在thisworkbook下。。。。
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_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

ocr37

quqiyuan 发表于 2024-11-16 19:16
代码放在thisworkbook下。。。。
Private Sub Workbook_Activate()
    Application.CutCopyMode = False ...

大佬，我是小白，不能理解

ocr37

您这个连复制都限制了