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

tango429 · 20/10/15

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

Em khong biet · 8/9/16

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)

huonglien1901 · 1/11/18

Anh ơi khi nhấn nút tải về thì báo lỗi thế này

Nguyễn Duy Tuân · 1/11/18

huonglien1901 đã viết:
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: 1/11/18

Em khong biet đã viết:
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é.

chucuoi92 · 4/1/20

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 ?

Nguyễn Duy Tuân · 6/1/20

chucuoi92 đã viết:
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 ?
View attachment 230766

Xóa thì em vào COntrol Panel chọn Uninstall nhé.

chucuoi92 · 6/1/20

Nguyễn Duy Tuân đã viết:
Xóa thì em vào COntrol Panel chọn Uninstall nhé.

Em đã xóa trong Control Panel nhưng cũng không hết nên mới đăng bài để hỏi anh.

haivs1114 · 27/3/20

e muốn sử dụng phần mềm nay, a gửi link ddoowwn qua mail giùm e được k ạ. khoviettelchlhd@gmail.com
e cảm ơn

Hamedanger · 10/4/20

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

PhanTuHuong · 11/4/20

Hamedanger đã viết:
View attachment 235216
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

Có thớt bàn về con này rồi, tiêu diệt bằng code. Bạn tìm là thấy.

cantl · 7/9/22

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.

Nguyễn Duy Tuân · 8/9/22

cantailieu đã viết:
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.

cantl · 8/9/22

Nguyễn Duy Tuân đã viết:
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: 8/9/22

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

Nguyễn Duy Tuân · 8/9/22

cantailieu đã viết:
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: 8/9/22

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.

cantl · 10/9/22

Nguyễn Duy Tuân đã viết:
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ỉ?

befaint · 10/9/22

cantailieu đã viết:
báo lỗi.

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ả.

Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro

Virus macro tuy rất đơn giản nhưng nhiều người vẫn chưa biết cách phòng ngừa và xử lý khi máy tính bị nhiễm. Vì vậy tôi viết tặng mọi người add-in này, chức năng duy nhất của add-in này là xóa và ngăn chặn các loại virus macro. Lưu ý: Add-in sẽ xóa tất cả các sheet Macro4, sheet International...

www.giaiphapexcel.com

cantl · 11/9/22

befaint đã viết:
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ả.

Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro

Virus macro tuy rất đơn giản nhưng nhiều người vẫn chưa biết cách phòng ngừa và xử lý khi máy tính bị nhiễm. Vì vậy tôi viết tặng mọi người add-in này, chức năng duy nhất của add-in này là xóa và ngăn chặn các loại virus macro. Lưu ý: Add-in sẽ xóa tất cả các sheet Macro4, sheet International...

www.giaiphapexcel.com

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à.

Nguyễn Duy Tuân · 11/9/22

cantailieu đã viết:
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

cantailieu đã viết:
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.

cantl · 11/9/22

Nguyễn Duy Tuân đã viết:
Thủ tục cũ của bạn:

Cảm ơn NDT nhé. Auto open ko báo lỗi nữa nhưng vẫn ko call được. vẫn phải vào VBE + F5 mới được. Thôi bỏ đi vậy.

Nguyễn Duy Tuân · 7/10/22

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

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

Thành viên mới

File đính kèm

Thành viên chính thức

File đính kèm

GPE là ngôi nhà thứ 2 của tôi!!!

Nghị Hách

Thành viên lười biếng

Nghị Hách

Thành viên lười biếng

Thành viên mới

Thành viên chính thức

VBA & VB.NET for Excel & AutoCad

!!! Giải thoát !!!

Nghị Hách

!!! Giải thoát !!!

Nghị Hách

!!! Giải thoát !!!

File đính kèm

|||||||||||||

!!! Giải thoát !!!

Nghị Hách

!!! Giải thoát !!!

Nghị Hách

Đếm ngược thời gian