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

• 3

Thử chạy code này rồi khởi động lại Excel xem thử hết không bạn.

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

• 4

Hình như cái này đã bàn rồi cách đây 2 năm. Chỉ là cái anh chàng Tờ Quờ Nờ ấy giải đáp bằng cái link tiếng Tây, đọc muốn toé con mắt.

• 5

Virus negs.xls này có thể được diệt triệt để bằng KIS bản mới nhất, không cần vào xóa các file gốc trong START.

Đoạn code phía trên trước đây mình đã thử nhưng ko thành công.

Cuối cùng mình gỡ Office 2010 và cài Office 2016 thì đã removed được con foxz này. Cảm ơn anh em trong diễn đàn.

• 6

  Virus negs.xls này có thể được diệt triệt để bằng KIS bản mới nhất, không cần vào xóa các file gốc trong START.

Đoạn code phía trên trước đây mình đã thử nhưng ko thành công.

Cuối cùng mình gỡ Office 2010 và cài Office 2016 thì đã removed được con foxz này. Cảm ơn anh em trong diễn đàn.

Với bài

3 của huuthang_bd, bạn không cần phải cài KIS và cũng không cần phải cài lại Office nha bạn.

• 7

  Đoạn code phía trên trước đây mình đã thử nhưng

  Với bài

  3 của huuthang_bd, bạn không cần phải cài KIS và cũng không cần phải cài lại Office nha bạn.

e copy code không diệt được anh ạ

• 8

  e copy code không diệt được anh ạ

Bạn thực hiện thế nào và có thể chụp hình lại "cái thằng" mà bạn muốn tiêu diệt đó không?

• 9

  Bạn thực hiện thế nào và có thể chụp hình lại "cái thằng" mà bạn muốn tiêu diệt đó không?

E copy đoạn code trên, mở file excel bị lỗi, paste code vào -> save (hỏi lưu tên file khác) -> lưu->, e mở vẫn lỗi

• chup 1.png 151.6 KB · Đọc: 109

• 10

  E copy đoạn code trên, mở file excel bị lỗi, paste code vào -> save (hỏi lưu tên file khác) -> lưu->, e mở vẫn lỗi

Bạn phải chạy macro chứ copy vào không thì đâu có được

• 11

  Bạn phải chạy macro chứ copy vào không thì đâu có được

E có ấn nút play màu xanh rồi ạ

• 12

  E có ấn nút play màu xanh rồi ạ

Bạn tạo một Module mới, rồi dán vào thủ tục trên, sau đó cho nó chạy. Chứ không phải bạn dán vô ThisWorkbook.

• 13

  Bạn tạo một Module mới, rồi dán vào thủ tục trên, sau đó cho nó chạy. Chứ không phải bạn dán vô ThisWorkbook.

Chắc phải tạo 1 addin cho code chạy khi mở file thì mới diệt hết được.

• 14

  Bạn tạo một Module mới, rồi dán vào thủ tục trên, sau đó cho nó chạy. Chứ không phải bạn dán vô ThisWorkbook.

Em làm như anh hướng dẫn, 2 con virut đó vẫn trong code, giờ e cứ lập file mới đều bị, e phải copy hết ra cũng vẫn dính theo. Giúp em với.

• chup anh.jpg 246 KB · Đọc: 76

• 15

  Với bài

  3 của huuthang_bd, bạn không cần phải cài KIS và cũng không cần phải cài lại Office nha bạn.

Tình hình sau 1 thời gian e diệt thủ công con virut trên, nó lan tỏa rộng quá anh ơi, cứ làm 1 file mới excel lại bị virut vào file anh ạ. Giúp em với. Giờ nó nhân rộng khắp máy tính em làm rồi ạ. E nhiều dữ liệu em sợ bị mất lắm.

• foxz va Negs xls.png 157.4 KB · Đọc: 36
• virut foxz.png 161.4 KB · Đọc: 27

• 16

  Tình hình sau 1 thời gian e diệt thủ công con virut trên, nó lan tỏa rộng quá anh ơi, cứ làm 1 file mới excel lại bị virut vào file anh ạ. Giúp em với. Giờ nó nhân rộng khắp máy tính em làm rồi ạ. E nhiều dữ liệu em sợ bị mất lắm.

Máy tôi cũng bị "lây bệnh" file bạn rồi. Cố gắng tự bảo vệ mình.

• 17

Con này code = VBA, code rành rành ra đó, chịu khó bỏ 1 chút thời gian đọc code của nó thì sẽ hiểu nó làm gì mà, rồi sẽ biết cách remove nó. Cần gì tool, AV hay cài lại Office chi trời.

• 18

  Chắc phải tạo 1 addin cho code chạy khi mở file thì mới diệt hết được.

Tạm thời em tạo một File có đoạn co de ở bài

3 và copy File ấy cho vào thư mục XLSTART của Excel

C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART. Anh Thắng cho vào Addin để diệt với Virus này lây lan cấp số cộng lên không ngại lắm

• 19

  Thử chạy code này rồi khởi động lại Excel xem thử hết không bạn.

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

Đang đau đầu vì cái con virut này thì đọc được bài của bạn. Mình đã làm và thành công. Cám ơn bạn @huuthang_bd