thintai
Thành viên mới
- Tham gia
- 4/10/22
- Bài viết
- 7
- Được thích
- 1
Chào mọi người!
mình có đọc qua các bài tương tự ở trên diễn đàn và làm theo nhưng vẫn không khác phục được.
điển hình nhất là bài có đoạn mã code như phía dưới:
mình có chạy mã vba này thì trong modules đã thấy xóa đi con foxz, nhưng mình lưu file lại thì lại bị đóng luôn ứng dụng excel và mở lại thì vẫn còn virus foxz
mình cũng đã xóa toàn bộ file trong C:\Users\Administrator\AppData\Roaming\Microsoft\Excel
nhưng vẫn bị lỗi xóa virus xong lưu file nó tắt ứng dụng.
mong mọi người hướng dẫn giúp còn cách nào không ạ. Thanks mọi người nhiều
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 có đọc qua các bài tương tự ở trên diễn đàn và làm theo nhưng vẫn không khác phục được.
điển hình nhất là bài có đoạn mã code như phía dưới:
mình có chạy mã vba này thì trong modules đã thấy xóa đi con foxz, nhưng mình lưu file lại thì lại bị đóng luôn ứng dụng excel và mở lại thì vẫn còn virus foxz
mình cũng đã xóa toàn bộ file trong C:\Users\Administrator\AppData\Roaming\Microsoft\Excel
nhưng vẫn bị lỗi xóa virus xong lưu file nó tắt ứng dụng.
mong mọi người hướng dẫn giúp còn cách nào không ạ. Thanks mọi người nhiều
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
(
