Cần giúp đỡ về copy dữ liệu từ file excel bị khóa Copy-paste bằng VBA

[chim_zunzun]

Chào toàn thể các anh chị em,
Mình làm khảo sát cho rất nhiều người (File đính kèm, mình chỉ gửi thử 1 file mẫu. Pass nếu cần: tddn2021). Sau khi nhận được kết quả khảo sát (tầm 1000 file) thì có ý định dùng VBA để thống kê.
Tuy nhiên trước đó đã dùng đoạn code bên dưới (nằm trong this workbook) để Disable toàn bộ tính năng copy/paste trong các files gửi đi.
Bây giờ dùng VBA để thống kê thì bị vướng không chạy được khi copy - paste dữ liệu
Mình đã dùng code sau trong file tổng hợp:
Application.CutCopyMode = True
Application.OnKey "^C"
Application.CutCopyMode = True
Application.CellDragAndDrop = True

Nhưng không hiệu quả Vậy nhờ các anh chị em có kinh nghiệm xử lý VBA hỗ trợ mình code để Enable lại Copy Paste và tiếp tục vô hiệu hóa nó khi đã lấy xong dữ liệu với.
Cảm ơn cả nhà.



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

 

[huuthang_bd]

Bạn thử làm như vầy

Sub TongHopDuLieu
    Application.EnableEvents = False
    'Code thuc hien tong hop du lieu cua ban
    Application.EnableEvents = True
End Sub