File excel bị Lỗi Microsoft Visual For Applications và không xóa được module, không thể chạy được code

xuantocdotb · 17/12/19

Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!

.

Em xin cảm ơn

xuantocdotb · 17/12/19

xuantocdotb đã viết:
Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!

.View attachment 230072

Em xin cảm ơnView attachment 230070

Các anh/chị ai biết nguyên nhân chỉ dùm em với ạ!

batman1 · 17/12/19

Nhìn thấy con vi rút foxz rồi hả?
Mở thêm tập tin mới (File -> New) -> vào VBE -> thêm Module1 cho tập tin mới -> dán code sau

Mã:

Sub KillFoxz()
Dim WB As Workbook
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
For Each WB In Workbooks
    WB.Sheets("foxz").Delete
Next
With Workbooks("NEGS.XLS")
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close False
End With
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

-> chạy code trên -> đóng Excel, nếu được hỏi thì chỉ lưu tập tin của mình, không lưu tập tin mới thêm -> mở lại tập tin -> đã hết chú foxz chưa?

huonglien1901 · 17/12/19

xuantocdotb đã viết:
Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!

.View attachment 230072

Em xin cảm ơnView attachment 230070

Khi mở file lên thì hiển thị module lạ.

Chào mọi người! Em có vấn đề nhờ mọi người hỗ trợ khi em Nhấn ALT+F11 thì hiện ra những module lạ( module foxz) Và tất cả các file đều có những code này. Làm thế nào để loại bỏ cái này. Em cảm ơn mọi người nhiều!

www.giaiphapexcel.com

Xem bài đó.

huonglien1901 · 17/12/19

xuantocdotb đã viết:
Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!

.View attachment 230072

Em xin cảm ơnView attachment 230070

Có file lạ ăn bám theo Excel

Tôi tải 1 file trên GPE, bây giờ mỗi lần mở 1 file Excel nào bất kỳ, khi vào VBE cũng thấy "1 thằng lạ mặt - NEGS.XLS", đã diệt Virus - Xóa được Module của nó - mà nó cứ còn hiện diện. Phải làm sao bây giờ? Tìm khắp ổ đĩa cũng không thấy nó. Nhờ các bạn chỉ cách xóa nó cho "phẻ trong mình" một chút.

www.giaiphapexcel.com

xuantocdotb · 17/12/19

batman1 đã viết:
Nhìn thấy con vi rút foxz rồi hả?
Mở thêm tập tin mới (File -> New) -> vào VBE -> thêm Module1 cho tập tin mới -> dán code sau

Mã:

Sub KillFoxz() Dim WB As Workbook On Error Resume Next Application.DisplayAlerts = False Application.EnableEvents = False For Each WB In Workbooks WB.Sheets("foxz").Delete Next With Workbooks("NEGS.XLS") .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.EnableEvents = True Application.DisplayAlerts = True End Sub

-> chạy code trên -> đóng Excel, nếu được hỏi thì chỉ lưu tập tin của mình, không lưu tập tin mới thêm -> mở lại tập tin -> đã hết chú foxz chưa?

Ẹm cám ơn anh!
Khi làm như anh hướng dẫn: Run đoạn code anh giúp báo lỗi như hình ạ!
Anh xem giúp em ạ! em cảm ơn!

batman1 · 17/12/19

xuantocdotb đã viết:
Ẹm cám ơn anh!
Khi làm như anh hướng dẫn: Run đoạn code anh giúp báo lỗi như hình ạ!

1. Đã đính kèm video thì làm sao để người khác xem được. Sao lại phải đăng nhập gì đó?
2. Đã chụp hình thì mở hết các module, kéo cửa sổ Properties rộng xuống dưới để người khác nhìn xem bạn có những project nào, module nào.
3. Tôi không có con vi rút nào để kiểm tra lại. Nhưng chắc chắn bạn không làm như tôi nói

Mở thêm tập tin mới (File -> New) -> vào VBE -> thêm Module1 cho tập tin mới -> dán code sau

Nếu làm đúng như tôi viết mà không thành công thì tôi chịu.

xuantocdotb · 17/12/19

batman1 đã viết:
1. Đã đính kèm video thì làm sao để người khác xem được. Sao lại phải đăng nhập gì đó?
2. Đã chụp hình thì mở hết các module, kéo cửa sổ Properties rộng xuống dưới để người khác nhìn xem bạn có những project nào, module nào.
3. Tôi không có con vi rút nào để kiểm tra lại. Nhưng chắc chắn bạn không làm như tôi nói

Nếu làm đúng như tôi viết mà không thành công thì tôi chịu.

Dạ! em làm như anh hướng dẫn video xem không được à anh?
Vậy em tài file anh xem dùm ạ!

batman1 · 17/12/19

xuantocdotb đã viết:
Dạ! em làm như anh hướng dẫn video xem không được à anh?
Vậy em tài file anh xem dùm ạ!

Viết đến lần thứ 2 mà bạn còn không hiểu sao?
Bạn viết

em làm như anh hướng dẫn

Nhưng tôi biết là bạn không làm như hướng dẫn. Nhìn hình đính kèm là biết thôi.
Tôi viết

Mở thêm tập tin mới (File -> New) -> vào VBE -> thêm Module1 cho tập tin mới -> dán code sau

Bạn đã không thêm tập tin mới. Tập tin mới thêm (File -> New) phải có tên là Book1.xlsx.

Nhìn hình đính kèm thì bạn thêm Module1 vào tập tin của mình chứ không vào tập tin mới. Mà làm gì có tập tin mới.

Tất nhiên nếu bây giờ làm đúng như tôi viết mà không thành công thì tôi chịu.

xuantocdotb · 17/12/19

batman1 đã viết:
Viết đến lần thứ 2 mà bạn còn không hiểu sao?
Bạn viết

Nhưng tôi biết là bạn không làm như hướng dẫn. Nhìn hình đính kèm là biết thôi.
Tôi viết

Bạn đã không thêm tập tin mới. Tập tin mới thêm (File -> New) phải có tên là Book1.xlsx.

Nhìn hình đính kèm thì bạn thêm Module1 vào tập tin của mình chứ không vào tập tin mới. Mà làm gì có tập tin mới.

Tất nhiên nếu bây giờ làm đúng như tôi viết mà không thành công thì tôi chịu.

Vâng, em vừa chuyển ngôn ngữ về tiếng anh, em đã thêm code vào module trong Book1.
Báo lỗi như hình anh ạ!

batman1 · 17/12/19

Thế thì tôi chịu.

xuantocdotb · 17/12/19

batman1 đã viết:
Thế thì tôi chịu.

Dạ! em cám ơn anh! của em nó chỉ có mỗi "foxz" chứ không có "NEGS.XLS"

batman1 · 17/12/19

xuantocdotb đã viết:
Dạ! em cám ơn anh! của em nó chỉ có mỗi "foxz" chứ không có "NEGS.XLS"

Thế thì thử xóa cụm sau đi.

Mã:

With Workbooks("NEGS.XLS")
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close False
End With

Thự tự: mở tập tin của bạn -> thêm Book1 -> làm như hướng dẫn.

Mà tôi nói là tôi chịu rồi.

xuantocdotb · 17/12/19

batman1 đã viết:
Thế thì thử xóa cụm sau đi.

Mã:

With Workbooks("NEGS.XLS") .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With

Thự tự: mở tập tin của bạn -> thêm Book1 -> làm như hướng dẫn.

Mà tôi nói là tôi chịu rồi.

Dạ! em cám ơn anh, nó vẫn báo vậy! hic.

dangky47h · 17/12/19

xuantocdotb đã viết:
Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!

.View attachment 230072

Em xin cảm ơnView attachment 230070

Bạn thử cách:
Mở file hiện hành rồi -> Vào mục Excel Options -> chọn "Disable All Macro with notification" -> Lưu file -> tắt file
Mở file vừa tắt lên -> xóa muodel "foxz" -> Lưu file lại
Mở file lên -> Vào mục Excel Options -> Bật Enbale all macros ->lưu file.
Mở file mới lưu lên xem sao?
Thân!

PhanTuHuong · 17/12/19

Bạn gửi file lên xem sao?

xuantocdotb · 17/12/19

dangky47h đã viết:
Bạn thử cách:
Mở file hiện hành rồi -> Vào mục Excel Options -> chọn "Disable All Macro with notification" -> Lưu file -> tắt file
Mở file vừa tắt lên -> xóa muodel "foxz" -> Lưu file lại
Mở file lên -> Vào mục Excel Options -> Bật Enbale all macros ->lưu file.
Mở file mới lưu lên xem sao?
Thân!

Tuyệt quá! đã hết và chạy file ngon!
Cám ơn rất rất nhiều ạ!
Em mò mãi không ra, tưởng mất hết dữ liệu.
Cảm ơn anh nhiều!

Bài đã được tự động gộp: 17/12/19

PhanTuHuong đã viết:
Bạn gửi file lên xem sao?

Dạ! em sửa được rồi ạ!
Em làm theo cách của @dangky47h đã xử lý thành công.
Cảm ơn các anh-chị trên GPE đã giúp đỡ!

dangky47h · 17/12/19

xuantocdotb đã viết:
Tuyệt quá! đã hết và chạy file ngon!
Cám ơn rất rất nhiều ạ!
Em mò mãi không ra, tưởng mất hết dữ liệu.
Cảm ơn anh nhiều!

Bài đã được tự động gộp: 17/12/19

Dạ! em sửa được rồi ạ!
Em làm theo cách của @dangky47h đã xử lý thành công.
Cảm ơn các anh-chị trên GPE đã giúp đỡ!

Hề, mình mò ngịch thôi chả may trúng thì bảo vậy! chứ trình độ con ngan có biết gì đâu.
Cơ bản là file của bạn ok là được.

xuantocdotb · 17/12/19

dangky47h đã viết:
Hề, mình mò ngịch thôi chả may trúng thì bảo vậy! chứ trình độ con ngan có biết gì đâu.
Cơ bản là file của bạn ok là được.

Dù sao em xin cảm ơn! chúc anh sức khỏe và niềm vui.

dangky47h · 17/12/19

xuantocdotb đã viết:
Dù sao em xin cảm ơn! chúc anh sức khỏe và niềm vui.

Bạn lưu ý! nếu không được hãy chuyển vị trí file sang thư mục khác nhé! và lặp lại thao tác trên!
Mình trước đây đã bị vậy mà!

File excel bị Lỗi Microsoft Visual For Applications và không xóa được module, không thể chạy được code

Thành viên chính thức

Thành viên chính thức

Thành viên gạo cội

GPE là ngôi nhà thứ 2 của tôi!!!

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên thường trực

VBA & VB.NET for Excel & AutoCad

Thành viên chính thức

Thành viên thường trực

Thành viên chính thức

Thành viên thường trực

Facebook

Group