Tặng các bạn công cụ "VirusMacroWarning" - Cảnh báo và diệt "Virus Macro"

Liên hệ QC
Xin chào cả nhà. Vui lòng giúp mình có phần mềm hoặc giải pháp nào sửa lỗi file excel của mình bị virus tấn công. Mình loay hoay mãi cũng không thể nào mở được file. Mình gơi file đính kèm nhờ cả nhà xem giúp với. Cám ơn nhiều
 

File đính kèm

  • Commitment-Apr2015_Peg.xlsx
    15.7 KB · Đọc: 12
Em dùng VirusMacroWarning trên nền Win 7, 32bit, Office 2007 rất ok, giờ em chuyển sang Win 7, 64 bit, Office 2010 thì khi cài đặt thì không hiểu sao bị lỗi (hình đính kèm)
 

File đính kèm

  • Setup.png
    Setup.png
    29.2 KB · Đọc: 29
Lần chỉnh sửa cuối:
Anh ơi khi nhấn nút tải về thì báo lỗi thế này
View attachment 206851

Cảm ơn bạn thông báo. Bên mình sẽ kiểm tra lại link nhé.
Bài đã được tự động gộp:

Em dùng VirusMacroWarning trên nền Win 7, 32bit, Office 2007 rất ok, giờ em chuyển sang Win 7, 64 bit, Office 2010 thì khi cài đặt thì không hiểu sao bị lỗi (hình đính kèm)

Phiên bản hiện nay chỉ chạy trên Office 32-bit bạn nhé.
 
Anh Tuân cho hỏi cách xóa VirusMacroWarning.
Trước đây em dùng office 32bit,nay dùng office 2019 64bit thì VirusMacroWarning không dùng được nữa muốn xóa cũng ko được.
Anh có thể hướng dẫn cách xóa không ?
Macro.jpg
 
1586481440825.png
A @Nguyễn Duy Tuân Kiểm tra lại được không ạ, lại bị lỗi link rồi e gặp rắc rối với con negs.xls khó chịu quá mà bkav ko diệt được nó nhiễm lây lan khắp nơi vào các file rồi . Cảm ơn anh
 
Nay mình đào mộ con này lên phát.
Tình hình là mình cài cho Office 2021 32 bit. nó ra thế này, mà ở trên năm 2016 cũng có bạn bị dính rồi.

C:\WINDOWS\system32\VirusMacroWarning.dll
Unable to register the DLL/OCX: RegSvr32 failed with exit code 0x5.
Click Retry to try again, Ignore to proceed anyway (not
recommended), or Abort to cancel installation.


Chắc nhờ a Tuân update giúp với.
 
Nay mình đào mộ con này lên phát.
Tình hình là mình cài cho Office 2021 32 bit. nó ra thế này, mà ở trên năm 2016 cũng có bạn bị dính rồi.

C:\WINDOWS\system32\VirusMacroWarning.dll
Unable to register the DLL/OCX: RegSvr32 failed with exit code 0x5.
Click Retry to try again, Ignore to proceed anyway (not
recommended), or Abort to cancel installation.


Chắc nhờ a Tuân update giúp với.

Mình nghi có thể phần mềm diệt virus (Bkav, Kaspersky,...) nó chặn việc đăng ký vào Windows. Bạn tạm disable nó để cài VMW xong thì lại Enable nhé.
Nếu vẫn bị lỗi trên có thể bạn đưa file "VirusMacroWarning.dll" vào danh sách ngoại lệ của phần mềm diệt virus.
 
Mình nghi có thể phần mềm diệt virus (Bkav, Kaspersky,...) nó chặn việc đăng ký vào Windows. Bạn tạm disable nó để cài VMW xong thì lại Enable nhé.
Nếu vẫn bị lỗi trên có thể bạn đưa file "VirusMacroWarning.dll" vào danh sách ngoại lệ của phần mềm diệt virus.
Tình hình là hiện cái thông báo thế là ko cài được VirusMacroWarning.dll a Tuân ơi.
Mình chỉ dùng Win Defender 11, đã tắt realtime cũng ko được. Đặt file VirusMacroWarning.dll giả để cài đặt đè lên cũng ko được.
Bài đã được tự động gộp:

Với lại tình hình mình có độ chế file của các anh em, nhưng chắc ko hiểu cách VBA hoạt động nên khi open file ko đồng thời cho hiện sheet foxz và auto xóa được.
Chắc nhờ mọi người chỉnh sửa giúp xem sao.

Mã:
Private Sub Workbook_Open()
    On Error Resume Next
     Call Unhide_xlSheetVeryHidden
     Call KillFoxz
     Call KillIt
End Sub

Sub Unhide_xlSheetVeryHidden()
    Dim ws As Worksheet
    i = Worksheets.Count
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Visible = xlSheetVeryHidden Then
        ws.Visible = xlSheetVisible
        End If
    Next ws
End Sub

Sub KillIt()
Application.DisplayAlerts = False
With Workbooks("NEGS.XLS")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.DisplayAlerts = True
End Sub

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
 
Tình hình là hiện cái thông báo thế là ko cài được VirusMacroWarning.dll a Tuân ơi.
Mình chỉ dùng Win Defender 11, đã tắt realtime cũng ko được. Đặt file VirusMacroWarning.dll giả để cài đặt đè lên cũng ko được.
Bài đã được tự động gộp:

Với lại tình hình mình có độ chế file của các anh em, nhưng chắc ko hiểu cách VBA hoạt động nên khi open file ko đồng thời cho hiện sheet foxz và auto xóa được.
Chắc nhờ mọi người chỉnh sửa giúp xem sao.

Mã:
Private Sub Workbook_Open()
    On Error Resume Next
     Call Unhide_xlSheetVeryHidden
     Call KillFoxz
     Call KillIt
End Sub

Sub Unhide_xlSheetVeryHidden()
    Dim ws As Worksheet
    i = Worksheets.Count
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Visible = xlSheetVeryHidden Then
        ws.Visible = xlSheetVisible
        End If
    Next ws
End Sub

Sub KillIt()
Application.DisplayAlerts = False
With Workbooks("NEGS.XLS")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.DisplayAlerts = True
End Sub

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

Mình góp ý để code của bạn chạy xóa NEGS đúng hơn.

+ Trong thủ tục Unhide_xlSheetVeryHidden chỉ nên cho sheet là xlSheetVisible nếu tên sheet là "foxz".
+ Trong thủ tục "KillIt()". Trước khi đóng file Workbooks("NEGS.XLS") cần đặt EnableEvents = False nếu không khả năng nó lại nhân bản tiếp.
 
Mình góp ý để code của bạn chạy xóa NEGS đúng hơn.

+ Trong thủ tục Unhide_xlSheetVeryHidden chỉ nên cho sheet là xlSheetVisible nếu tên sheet là "foxz".
+ Trong thủ tục "KillIt()". Trước khi đóng file Workbooks("NEGS.XLS") cần đặt EnableEvents = False nếu không khả năng nó lại nhân bản tiếp.
Mình hỏi cái, mình call vẫn ko đc, đến for each là báo lỗi.
Mình muốn unhide all sheet very vì foxz nó hay tạo sheet 00000, 100000 lắm.
Về chỗ VirusMacroWarning.dll, thì có thể up mỗi file đấy để mình chép vào system32 thủ công thử xem sao nhỉ?
 

File đính kèm

  • test.xlsx
    265.9 KB · Đọc: 3
  • KILL FOXZ, NEGS.xlam
    13.9 KB · Đọc: 3
  • error.png
    error.png
    4.2 KB · Đọc: 2

Bỏ mấy cái đó đi bạn.
Có người làm sẵn addins rồi. Chỉ cần chép file Addins vào đúng chỗ là xong việc, và không phải quan tâm làm gì nữa cả.


1662797068427.png
 
Bỏ mấy cái đó đi bạn.
Có người làm sẵn addins rồi. Chỉ cần chép file Addins vào đúng chỗ là xong việc, và không phải quan tâm làm gì nữa cả.


View attachment 280916
Thanks bạn, DeleteVirusMacro hay có điều nó ko thông báo nên ko rõ chạy thế nào.
Còn addin của NDT hiện mình vẫn thấy hay nên chờ a ấy chốt lỗi xem sao.
Còn đoạn lỗi for each lỗi mình cũng muốn biết, nếu ko có câu tl thì đành chịu thôi, sửa đc thì có khi auto open sẽ del đc một số sheet rác cũng tốt mà.
 
Mình hỏi cái, mình call vẫn ko đc, đến for each là báo lỗi.
Mình muốn unhide all sheet very vì foxz nó hay tạo sheet 00000, 100000 lắm.

Thủ tục cũ của bạn:
C#:
Sub UnhidingVeryHiddenSheets()
Dim works As Worksheet
For Each works In Worksheets
If works.Visible = xlSheetVeryHidden Then works.Visible = xlSheetVisible
Next
End Sub

Cần sửa lại là:
C#:
Sub UnhidingVeryHiddenSheets()
    Dim works As Worksheet
    If ActiveWorkbook Is Nothing Then Exit Sub
    For Each works In Worksheets
        If works.Visible = xlSheetVeryHidden Then works.Visible = xlSheetVisible
    Next
End Sub

Về chỗ VirusMacroWarning.dll, thì có thể up mỗi file đấy để mình chép vào system32 thủ công thử xem sao nhỉ?

Add-in VirusMacroWaring bộ cài không chỉ mỗi cái DLL đó đâu, cò một file để làm nhiệm vụ xử lý API để xóa những NAME rác cứng đầu mà code VBA thông thường không làm được hoặc rất khó để chạy an toàn. Bạn có thể cài vào một máy khác nếu thành công thì copy DLL.
 
Lần chỉnh sửa cuối:
VirusMacroWarning v3.0.0 - Phiên bản mới 07-10-2022

Khi file Excel của bạn bị nhiễm virus macro tức là hậu quả đã xảy ra. Phần lớn các cách xóa virus, name rác là làm thủ công hoặc chỉ là giải quyết hậu quả, bản chất virus vẫn tiềm ẩn lây lan từ file này đến file khác mà bạn có thể không biết. Theo cơ chế hoạt động của virus macro, khi mở Excel là virus đã được kích hoạt hoặc khi mở file mà file đó có mã độc. Các virus macro thường được viết bằng các hàm macro được lưu trong sheet loại "Macro", như loại virus "Virus.MSExcel.Yagnuul.d" tên virus là "Helpme". Người ta cũng viết virus bằng VBA ví dụ như virus NEGS tự cấy mã độc vào các file Excel khi mở, tạo thêm sheet có tên "foxz", tạo module và cấy mã VBA để phục vụ việc nhân bản....

Phần mềm/Add-in VirusMacroWarning đóng vai trò như một người gác cổng, ngăn ngừa ngay hành vi của virus trước khi bạn mở file Excel làm việc, xóa name rác để giúp file Excel giảm dung lượng, chạy nhanh hơn.

(*) Download: https://bluesofts.net/giai-phap-phan-mem/Phan-mem-mien-phi/virus-macro-warning.html

 
Web KT
Back
Top Bottom