Cứu em với Code trên Thisworkbook nhưng không copy hay paste được

[tuankaka90]

Em cài 1 đoạn code trên Thisworkbook
Private Sub Workbook_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
End Sub
Nhưng không thể copy hay paste giữa các excel khác đươc ai giúp em có cách nào hiệu quả hơn với

 

[phulien1902]

Em cài 1 đoạn code trên Thisworkbook
Private Sub Workbook_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
End Sub
Nhưng không thể copy hay paste giữa các excel khác đươc ai giúp em có cách nào hiệu quả hơn với

Tôi từng bị như bạn, và tôi đã xóa hết các dòng đó đi.

 

[phuyen89]

Em cài 1 đoạn code trên Thisworkbook
Private Sub Workbook_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
End Sub
Nhưng không thể copy hay paste giữa các excel khác đươc ai giúp em có cách nào hiệu quả hơn với

Mình có cùng câu trả lời với phulien1902.
Tuy nhiên đã có 1 câu hỏi liên quan đến vấn đề này:

https://social.msdn.microsoft.com/F...py-and-paste-problem-between-two?forum=isvvba

Thêm dòng nữa xem sao.
Application.CellDragAndDrop = True

 

[tuankaka90]

Mình đã thêm
Application.CellDragAndDrop = True
Nhưng vẫn ko được có cái gì đó nó chặn copy và paste

 

[ndu96081631]

Làm vầy thử

Private Sub Workbook_Activate()
  If Application.CutCopyMode = 0 Then
  ''Cái đống code của bạn
  End If
End Sub

 

[tuankaka90]

Code dung tot roi em cam on anh