这样操作不能从别的工作簿中复制内容过来，怎么办？

jygzcj

Private Sub Workbook_Activate()
    On Error Resume Next
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",false)"
    Application.OnKey "^v", "onCtrlV"
End Sub
Private Sub Workbook_Deactivate()
    On Error Resume Next
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",true)"
    Application.OnKey "^v"
End Sub


Sub onCtrlV()
    On Error Resume Next
    ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

本工作簿激活时窗口最大化，同时Ctr+V只能粘贴数值，
本工作簿非激活时恢复正常，同时恢复Ctrl+V功能，
可是实际呢？在工作簿切换时Ctrl+C and Ctrl+V 完全没有用了。

jygzcj

不知道是否有解决方案？