Lỗi VBA excel

[changgiongai473]

Em tải 1 file excel về phát hiện có VBA ẩn, h muốn xóa đi mà không xóa được có cao thủ nào giúp với.
Check qua thì thấy VBA đó có đặt mật khẩu và để ẩn

 

[malemkhoang]

Ecxel 2k3 sẽ nói sau.
Ecxel 2k7 trở lên là tệp nén zip. Trước khi thực hiện bạn tạo bản sao. Đổi tên tệp thành ".zip"; mở tệp .zip trong trình duyệt file; tìm tệp ".bin"; xoá tệp .bin đó rồi lưu lại; cuối cùng đổi lại tên tệp là ".xlsx".

 

[bbkim]

Đưa link đây để mình tải về cho máy dính vi dút nào.

 

[tvthoi1984]

Cho mình hỏi ké 1 chút. Mình là giáo viên. Hiện tại, một số máy tính trường mình bị dính con kangatang. Làm sao để loại bỏ nó ra khỏi các file file excel trong máy tính mà các file excel đó vẫn còn dữ liệu?

 

[malemkhoang]

@tvthoi1984
Bạn gửi cho @bbkim để bạn ấy nhiễm đi đã, rồi bạn ấy sẽ chỉ cách gỡ cho bạn. Còn tui thì gỡ thủ công bằng cách trên #2...

 

[Long Sao]

Cho mình hỏi ké 1 chút. Mình là giáo viên. Hiện tại, một số máy tính trường mình bị dính con kangatang. Làm sao để loại bỏ nó ra khỏi các file file excel trong máy tính mà các file excel đó vẫn còn dữ liệu?

Dùng Avz5 quét thử xem nhé Link tải Avz5. Nói luôn là avz 5 là con riêng nhỏ của Kaspersky dùng để xử lý cấp bách khi bị nhiễm mã độc

 

[bbkim]

Cho mình hỏi ké 1 chút. Mình là giáo viên. Hiện tại, một số máy tính trường mình bị dính con kangatang. Làm sao để loại bỏ nó ra khỏi các file file excel trong máy tính mà các file excel đó vẫn còn dữ liệu?

Thử dùng đoạn mã dưới xem sao bác.

Sub OpenAllSTARTUP()
  On Error Resume Next
  Dim s$: s = "mypersonnel.xls"
  Worksheets(s).Close False
  Application.Wait now + timeSerial(0,0,2)
  Kill Application.StartupPath & "\" & s
  Kill Replace(Application.StartupPath, "Excel\XLSTART", "AddIns") & "\" & s
  Kill Replace(Application.StartupPath, "Excel\XLSTART", "Bo" & ChrW(770) & ChrW(777) & " tro" & ChrW(795) & ChrW(803)) & "\" & s
  Kill Application.Path & "\STARTUP" & "\" & s
  Kill Application.Path & "\XLSTART" & "\" & s
End Sub

Mới đi lượn bên giapphapexcel. Không thích thì làm thủ công hoặc dùng macro diệt virus

 

[Long Sao]

Thử cách dùng web này xem nhé. Mong là có thể xử lý được vấn đề của bạn tus gặp phải

 

[Long Sao]

Có thể test thử hướng dẫn trong này nữa nhé

 

[tvthoi1984]

Cảm ơn các Bác đã nhiệt tình trợ giúp. Đer vài bữa nữa mình thử. Giờ đang đầu hè nên vi vu tí tí. Kkk

 

[malemkhoang]

Không biết trong 500aevn-z có được mấy ae muốn MS VBA password từ "vannhucu" trở thành "lameogicopass"...
Vấn đề bảo mật cho pass VBA của anh Mai là yếu nhất mọi thời đại, vì anh ấy dùng UUID để nhận dạng có pass với nopass, mà lại chỉ cần thay UUID là xong.​

 

[changgiongai473]

Cho mình hỏi ké 1 chút. Mình là giáo viên. Hiện tại, một số máy tính trường mình bị dính con kangatang. Làm sao để loại bỏ nó ra khỏi các file file excel trong máy tính mà các file excel đó vẫn còn dữ liệu?

mình bị con đó luôn đó

 

[changgiongai473]

Thử cách dùng web này xem nhé. Mong là có thể xử lý được vấn đề của bạn tus gặp phảiXem phần đính kèm 60096

mình làm rồi mà nó khóa không cho xóa, máy đang cần làm việc ghét mình cài lại máy luôn

 

[changgiongai473]

Thử dùng đoạn mã dưới xem sao bác.

Sub OpenAllSTARTUP()
  On Error Resume Next
  Dim s$: s = "mypersonnel.xls"
  Worksheets(s).Close False
  Application.Wait now + timeSerial(0,0,2)
  Kill Application.StartupPath & "\" & s
  Kill Replace(Application.StartupPath, "Excel\XLSTART", "AddIns") & "\" & s
  Kill Replace(Application.StartupPath, "Excel\XLSTART", "Bo" & ChrW(770) & ChrW(777) & " tro" & ChrW(795) & ChrW(803)) & "\" & s
  Kill Application.Path & "\STARTUP" & "\" & s
  Kill Application.Path & "\XLSTART" & "\" & s
End Sub

Mới đi lượn bên giapphapexcel. Không thích thì làm thủ công hoặc dùng macro diệt virus

thank bác