Anh ơi khi nhấn nút tải về thì báo lỗi thế này
View attachment 206851
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)
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
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.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
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.
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 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.
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 hỏi cái, mình call vẫn ko đc, đến for each là báo lỗi.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.
báo lỗi.
Thanks bạn, DeleteVirusMacro hay có điều nó ko thông báo nên ko rõ chạy thế nào.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
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.
Sub UnhidingVeryHiddenSheets()
Dim works As Worksheet
For Each works In Worksheets
If works.Visible = xlSheetVeryHidden Then works.Visible = xlSheetVisible
Next
End Sub
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ỉ?
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.Thủ tục cũ của bạn:
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
Ôi định mệnh. số phận thật là ưu đãi lắm thay.Quá hay. Vừa tạo tài khoản trên giaiphapexcel vào trang này thấy ngay tiện ích virusmacrowarning. Chặn được virus từ file negs.xls, xóa sheet foxz và xóa luôn cả code VBA do virus tạo ra quá nhanh và tiện. Trước đây mình phải xóa bằng tay và vô tình mở file có virus nó lại nhân bản cho file khác đuổi theo xóa hoài mệt. Thanks tác giả nhiều.