在工作表之间复制/粘贴被禁用

Question

我有一些代码，可以根据所使用的图纸来切换回车键的方向。不幸的是，此代码还禁用了工作表之间的复制/粘贴。

我知道我可以通过使用工作表更改事件来达到预期的结果。我很好奇为什么我无法复制/粘贴已有的东西。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Index = Sheets("Sheet1").Index Then
        Application.MoveAfterReturnDirection = xlToRight
    Else
        Application.MoveAfterReturnDirection = xlDown
    End If
End Sub

我可以在工作表内复制/粘贴，但不能在工作表之间复制/粘贴。我希望能够在工作表之间复制/粘贴单元格。我注意到我可以在一个单元格中单击并复制内容，然后粘贴到另一张纸的单元格中。我只是无法复制/粘贴单元格。