Virus.MSExcel.Yagnuul.c - LuuNgay[ngay hien tai].filename.xls. (3 người xem)

[luungay]

Chào mấy anh chị có kinh nghiệm về Excel, vui lòng giúp em diệt con virus này. Em đã đọc qua bài giới thiệu Virus.MSExcel.Yagnuul.d, và biết rằng mình cũng có cách diệt con virus này.

Khi bị nhiễm con virus này, khi SAVE file, tất cả file Excel đang mở sẽ có 1 bản copy khác y chang vậy và đựoc đặt tên là LuuNgay[ngay hien tai].filename.xls. Mặt khác, size của file Excel tăng lên gần gấp đôi, mặc dù những file toàn text nhung size đến gần 3MB.

Hiện tại có nhiều file excel trên mạng bị nhiem virus nay nhưng em khong biết diệt bang cach nao. Nếu UNHIDE sheet thì se thấy sheet tên là ~, trong đó có dòng macro luungay này.

Em có lien hệ BKAV và họ có gởi 1 tools để diệt, sau khi quét xong, khi open file lên thì vẫn còn thông báo Enable hay Disable Macro, sau do thì không SAVE file được nữa. Có nghĩa là sau khi quét bang BKAV xong thì file bị hư luôn, mỗi lần save nó báo error Document Not Saved.

Em có post 1 file bị nhiễm, anh em giúp em nhé, em cám ơn trước.

 

[Mr Okebab]

Bạn làm theo cách sau :

- Mở File lên, chọn chế độ disable macro
- Xóa Sheet ~
- Xóa toàn bộ các Name
- Lưu file lại

Đây là các đoạn Code

Xóa MacroSheet:

Sub DelShMacro()
    Application.DisplayAlerts = False
    Dim Sh As Object
    Dim ShType As XlSheetType
    For Each Sh In ActiveWorkbook.Sheets
        If TypeName(Sh) = "Worksheet" Then
            If Sh.Type = 3 Then Sh.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub

Xóa các Name :

Sub DeleteAllName()
    On Error Resume Next
    Dim NSh As Name
    For Each NSh In ActiveWorkbook.Names
            NSh.Delete
    Next

Thân!

 

[luungay]

Cám ơn Mr Okebab nhiều, em đã diệt được từng file 1 và sử dụng Office 2007 có tool Names Manager nên xóa hết các Names nhanh lắm.
Sau khi làm xong thì size của file giảm xuống rõ rệt, chỉ còn 1/10 thôi, đã quá.

Cám ơn anh nhiều.

Bạn làm theo cách sau :

- Mở File lên, chọn chế độ disable macro
- Xóa Sheet ~
- Xóa toàn bộ các Name
- Lưu file lại

Đây là các đoạn Code

Xóa MacroSheet:

Sub DelShMacro()
    Application.DisplayAlerts = False
    Dim Sh As Object
    Dim ShType As XlSheetType
    For Each Sh In ActiveWorkbook.Sheets
        If TypeName(Sh) = "Worksheet" Then
            If Sh.Type = 3 Then Sh.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub

Xóa các Name :

Sub DeleteAllName()
    On Error Resume Next
    Dim NSh As Name
    For Each NSh In ActiveWorkbook.Names
            NSh.Delete
    Next

Thân!

 

[0982221689]

các bác ơi e có thể chỉ rõ được ko? e mới học excel mà cũng bị như vậy nhiều file lắm.
e cứ xóa sheet ~ thì hết bị thêm 1 file luungay nhưng dung lượng file cũ vẫn lớn.
và có cách nào diệt được tất cả các file ko hay fải làm từng file 1.
Thanks các bác nhiều. có gì thì bỏ quá cho.

Chào mấy anh chị có kinh nghiệm về Excel, vui lòng giúp em diệt con virus này. Em đã đọc qua bài giới thiệu Virus.MSExcel.Yagnuul.d, và biết rằng mình cũng có cách diệt con virus này.

Khi bị nhiễm con virus này, khi SAVE file, tất cả file Excel đang mở sẽ có 1 bản copy khác y chang vậy và đựoc đặt tên là LuuNgay[ngay hien tai].filename.xls. Mặt khác, size của file Excel tăng lên gần gấp đôi, mặc dù những file toàn text nhung size đến gần 3MB.

Hiện tại có nhiều file excel trên mạng bị nhiem virus nay nhưng em khong biết diệt bang cach nao. Nếu UNHIDE sheet thì se thấy sheet tên là ~, trong đó có dòng macro luungay này.

Em có lien hệ BKAV và họ có gởi 1 tools để diệt, sau khi quét xong, khi open file lên thì vẫn còn thông báo Enable hay Disable Macro, sau do thì không SAVE file được nữa. Có nghĩa là sau khi quét bang BKAV xong thì file bị hư luôn, mỗi lần save nó báo error Document Not Saved.

Em có post 1 file bị nhiễm, anh em giúp em nhé, em cám ơn trước.