Nhờ xóa giúp Macro T

[truonggiang73]

Nhờ các anh chị giúp tôi tìm và xóa Macro "T" tự động tạo ra trong File. Dung lượng File quá lớn mặc dù tôi đã xóa hết dữ liệu trong File (gửi kèm File). Tôi không rõ có phải do Macro T gây ra không và cách khắc phục NTN? Mong mọi người giúp đỡ.
TG73 cảm ơn nhiều.

 

[vanle33]

Nhờ các anh chị giúp tôi tìm và xóa Macro "T" tự động tạo ra trong File. Dung lượng File quá lớn mặc dù tôi đã xóa hết dữ liệu trong File (gửi kèm File). Tôi không rõ có phải do Macro T gây ra không và cách khắc phục NTN? Mong mọi người giúp đỡ.
TG73 cảm ơn nhiều.

Nhấn Alt+F11 không thấy code đâu --> chắc bị ẩn code.
Bạn search trên diễn đàn cách hiện code bị ẩn.

 

[vu_tuan_manh_linh]

Nhờ các anh chị giúp tôi tìm và xóa Macro "T" tự động tạo ra trong File. Dung lượng File quá lớn mặc dù tôi đã xóa hết dữ liệu trong File (gửi kèm File). Tôi không rõ có phải do Macro T gây ra không và cách khắc phục NTN? Mong mọi người giúp đỡ.
TG73 cảm ơn nhiều.

Bạn nhờ xóa thì xóa!! Về cơ bản chả có virut gì cả, mà có một đống name rác. Xóa hết name là xong thôi!

 

[truonggiang73]

Bạn nhờ xóa thì xóa!! Về cơ bản chả có virut gì cả, mà có một đống name rác. Xóa hết name là xong thôi!

Cảm ơn vu_tuan_manh_linh. Bạn xóa bằng cách nào vậy, tôi đã dùng PM VirusMacroWarning của anh Tuân và một số Sub khác tham khảo trong DĐàn mà vẫn không xóa hết, đang còn cả trăm cái, xóa bằng tay thì lâu quá và vẫn có nhiều Names không xóa được.
Nhờ mọi người hướng dẫn gúp nhé.

Đến bây giờ tôi mới biết phần lớn các File của tôi cần phải xử lý đống rác này.

 

[vu_tuan_manh_linh]

Cảm ơn vu_tuan_manh_linh. Bạn xóa bằng cách nào vậy, tôi đã dùng PM VirusMacroWarning của anh Tuân và một số Sub khác tham khảo trong DĐàn mà vẫn không xóa hết, đang còn cả trăm cái, xóa bằng tay thì lâu quá và vẫn có nhiều Names không xóa được.
Nhờ mọi người hướng dẫn gúp nhé.

Đến bây giờ tôi mới biết phần lớn các File của tôi cần phải xử lý đống rác này.

Đôi khi có name dùng code xóa là được, đôi khi không được, và cách tôi làm là xóa thủ công. Khi nào không xóa được nữa thì save file, đóng file, thoát hoàn toàn excel, mở lại, và xóa tiếp... đến khi hết thì thôi.

 

[truonggiang73]

Đôi khi có name dùng code xóa là được, đôi khi không được, và cách tôi làm là xóa thủ công. Khi nào không xóa được nữa thì save file, đóng file, thoát hoàn toàn excel, mở lại, và xóa tiếp... đến khi hết thì thôi.

Tôi tham khảo trên DĐ và lắp ráp lại đoạn code này:

Sub hienname()
Dim N As Name
For Each N In ActiveWorkbook.Names
N.Visible = True
Next
End Sub


Sub XoaNameS()
Call hienname

Dim N As Name
On Error Resume Next
Application.DisplayAlerts = False

With ActiveWorkbook
MsgBox .Names.Count
For Each N In .Names
N.Delete
Next
MsgBox .Names.Count
If .Names.Count Then .Close True
Application.DisplayAlerts = True
End With
End Sub
Sau khi chạy VirusMacroWarning xong vẫn còn hàng trăm names rác nữa(là file của tôi).
Tiếp theo chạy code trên cho đến lúc báo còn khoản 4-5 cái nữa thì xóa tay. Kết quả thấy khả quan, dung lượng fIle sau xử lý giảm gần 50%.

Hạn chế của code này là xóa name của mình ngay từ lần đầu tiên.

Nếu anh Tuân nâng cấp VirusMacroWarning để khỏi chạy lòng vòng thì tốt quá.
Thân.

 

[ndu96081631]

Cảm ơn vu_tuan_manh_linh. Bạn xóa bằng cách nào vậy, tôi đã dùng PM VirusMacroWarning của anh Tuân và một số Sub khác tham khảo trong DĐàn mà vẫn không xóa hết, đang còn cả trăm cái, xóa bằng tay thì lâu quá và vẫn có nhiều Names không xóa được.
Nhờ mọi người hướng dẫn gúp nhé.

Đến bây giờ tôi mới biết phần lớn các File của tôi cần phải xử lý đống rác này.

File của bạn ngoài name rác ra thì còn có rất nhiều style rác
Hãy save as file của bạn thành đuôi XLSM rồi chạy chương trình 2 file đính kèm dưới đây nhé
Lưu ý:
- Đóng file của bạn trước khi chạy chương trình
- Yêu cầu máy tính của bạn phải có cài WinRAR

 

[vu_tuan_manh_linh]

File của bạn ngoài name rác ra thì còn có rất nhiều style rác
Hãy save as file của bạn thành đuôi XLSM rồi chạy chương trình 2 file đính kèm dưới đây nhé
Lưu ý:
- Đóng file của bạn trước khi chạy chương trình
- Yêu cầu máy tính của bạn phải có cài WinRAR

Em đã sưu tầm code xóa style rác này, tuy nhiên khi chạy thường lỗi, file được lưu với đuôi .xlsm, khi mở file lên chỉ đọc chứ không lưu được, lưu là báo lỗi, lưu lại với đuôi khác .xls, xlsx cũng báo lỗi tương tự.

 

[truonggiang73]

File của bạn ngoài name rác ra thì còn có rất nhiều style rác
Hãy save as file của bạn thành đuôi XLSM rồi chạy chương trình 2 file đính kèm dưới đây nhé
Lưu ý:
- Đóng file của bạn trước khi chạy chương trình
- Yêu cầu máy tính của bạn phải có cài WinRAR

Cơ quan và cá nhân tôi đang dùng Office2003. Tôi đã cài bổ sung FileFormatConverters.exe để đọc 2 file trên nhưng không SD được.
Phiền anh ndu96081631 cải tiến 2 file trên để chạy trên excel 2003 giúp được không.

 

[vanle33]

Cơ quan và cá nhân tôi đang dùng Office2003. Tôi đã cài bổ sung FileFormatConverters.exe để đọc 2 file trên nhưng không SD được.
Phiền anh ndu96081631 cải tiến 2 file trên để chạy trên excel 2003 giúp được không.

Hai file trên theo tôi hoàn toàn có thể sử dụng trên excel 2003, trừ khi office 2003 của bạn bị lỗi.

 

[truonggiang73]

Hai file trên theo tôi hoàn toàn có thể sử dụng trên excel 2003, trừ khi office 2003 của bạn bị lỗi.

Nói chung code của anh ndu96081631 "thâm sâu" quá, cần phải nghiên cứu kỹ mới hiểu được. Khi chạy tôi thấy lỗi ở đoạn trong Sub Main()
vFile = vFile & "m"
wb.SaveAs vFile, xlOpenXMLWorkbookMacroEnabled

Tôi đã thử bỏ chữ & "m" nhưng không được.
Cùng với yêu cầu của anh ndu96081631 :

Hãy save as file của bạn thành đuôi XLSM rồi chạy chương trình 2 file đính kèm dưới đây nhé

Nên tôi nghĩ rằng 2 File trên chạy trên Excel 2007.

 

[ndu96081631]

Phiền anh ndu96081631 cải tiến 2 file trên để chạy trên excel 2003 giúp được không.

Vậy thì không "chơi" được rồi bạn à!
Giờ bạn có 2 lựa chọn:
- Hoặc là mang file sang máy nào có Office 2007, 2010 mà xài
- Hoặc là bí quá, có thể gửi file lên đây để mọi người dọn rác giúp bạn

 

[truonggiang73]

Vậy thì không "chơi" được rồi bạn à!
Giờ bạn có 2 lựa chọn:
- Hoặc là mang file sang máy nào có Office 2007, 2010 mà xài
- Hoặc là bí quá, có thể gửi file lên đây để mọi người dọn rác giúp bạn

Khó xử quá anh ndu96081631 ạ. Nếu chỉ có một số ít thì nhờ được, đằng này hàng trăm File, lưu ở trên nhiều máy nên không dám nhờ.
Anh xem giải pháp này được không?
- Chon 01 máy khá nhất cài exce 2007.
- Save toàn bộ những File cần don rác sang dạng .XLSM
- Dọn thật sạch bằng 02 chương trình trên.
- Ghi lại các flie trên sang dạng cũ .XLS
(Phải cẩn thận nếu không nhầm địa chỉ do sao chép đi lại).

 

[Hau151978]

Excel có bản portable, bạn thử tải về chạy trên từng máy xem được không, mình đang dùng cả 2003 bản cài đặt và 2007 portable.