Có thể do copy các ô có Merge, bạn không được thông báo lỗi lên nên không biết cách xử lý, mình đã copy sheet chưa thấy báo lỗi theo dạng copy format trước rồi copy giá trị sau. Copy -->Paste Special --> Format, sau đó Copy -->Paste Special --> Value
Theo tôi nó báo lỗi vì 2 sheet trùng tên.
Bạn mở file của bạn lên, rồi mở file này lên. Sau đó chạy lệnh xóa name rác. Trong file của bạn có name rác do virut tạo ra.
Bạn nên đưa một file khi bạn copy, dán nó báo lỗi lên thì mọi người mới giúp được, bởi nguyên nhân thì nhiều , có thể do vius và có thể ...bị khóa 1 vùng nào đó ...
Sau khi xóa name rác thì copy dán bình thường, không thấy báo lỗi nên bạn dùng "thuốc" của Quang Hải đi . Nếu vẫn lỗi thì tính sau .
Khi nào muốn gặp thì cứ mở topic trên diễn đàn, khối người tham gia ăn nhậu cafe tán gẫu bàn tán tá lả về code tha hồ mà nghiên cứu
Sub HienSheet()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Sheets
Ws.Visible = -1
Next
End SubKhông đoạn code Quanghai đã giải quyết được rồi vì có những name siêu ẩn mà nhấn Ctrl+F3 không thấy được, còn code của tôi chỉ xóa 2 sheet ẩn thôi không xóa name rác, còn style rác dùng đường link mà tôi chỉ bạn để giải quyết
Vấn đề là 2 sheet siêu ẩn đó do virus tạo ra và lây lan sang các file khác rồi . Bạn thử kiểm tra bằng cách mở excel bấm All+f11 mở cửa sổ vba nhìn bên trái xem book1 có file nào có tên 000000, xxxxxxx, ....không ? đó là virus tạo ra và thường trú trong XLstart rồi . Tức là tất cả các file mới tạo đều đã có virus và sẵn sàng lây nhiễm sang các file khác khi file này được kích hoạt .
