xuantocdotb
Thành viên chính thức
- Tham gia
- 1/6/16
- Bài viết
- 66
- Được thích
- 23
Các anh/chị ai biết nguyên nhân chỉ dùm em với ạ!Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!
.View attachment 230072
Em xin cảm ơnView attachment 230070
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
Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!
.View attachment 230072
Em xin cảm ơnView attachment 230070
Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!
.View attachment 230072
Em xin cảm ơnView attachment 230070
Ẹm cám ơn anh!Nhìn thấy con vi rút foxz rồi hả?
Mở thêm tập tin mới (File -> New) -> vào VBE -> thêm Module1 cho tập tin mới -> dán code sau
-> chạy code trên -> đóng Excel, nếu được hỏi thì chỉ lưu tập tin của mình, không lưu tập tin mới thêm -> mở lại tập tin -> đã hết chú foxz chưa?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
1. Đã đính kèm video thì làm sao để người khác xem được. Sao lại phải đăng nhập gì đó?Ẹm cám ơn anh!
Khi làm như anh hướng dẫn: Run đoạn code anh giúp báo lỗi như hình ạ!
Nếu làm đúng như tôi viết mà không thành công thì tôi chịu.Mở thêm tập tin mới (File -> New) -> vào VBE -> thêm Module1 cho tập tin mới -> dán code sau
Dạ! em làm như anh hướng dẫn video xem không được à anh?1. Đã đính kèm video thì làm sao để người khác xem được. Sao lại phải đăng nhập gì đó?
2. Đã chụp hình thì mở hết các module, kéo cửa sổ Properties rộng xuống dưới để người khác nhìn xem bạn có những project nào, module nào.
3. Tôi không có con vi rút nào để kiểm tra lại. Nhưng chắc chắn bạn không làm như tôi nói
Nếu làm đúng như tôi viết mà không thành công thì tôi chịu.
Viết đến lần thứ 2 mà bạn còn không hiểu sao?Dạ! em làm như anh hướng dẫn video xem không được à anh?
Vậy em tài file anh xem dùm ạ!
Nhưng tôi biết là bạn không làm như hướng dẫn. Nhìn hình đính kèm là biết thôi.em làm như anh hướng dẫn
Bạn đã không thêm tập tin mới. Tập tin mới thêm (File -> New) phải có tên là Book1.xlsx.Mở thêm tập tin mới (File -> New) -> vào VBE -> thêm Module1 cho tập tin mới -> dán code sau
Vâng, em vừa chuyển ngôn ngữ về tiếng anh, em đã thêm code vào module trong Book1.Viết đến lần thứ 2 mà bạn còn không hiểu sao?
Bạn viết
Nhưng tôi biết là bạn không làm như hướng dẫn. Nhìn hình đính kèm là biết thôi.
Tôi viết
Bạn đã không thêm tập tin mới. Tập tin mới thêm (File -> New) phải có tên là Book1.xlsx.
Nhìn hình đính kèm thì bạn thêm Module1 vào tập tin của mình chứ không vào tập tin mới. Mà làm gì có tập tin mới.
Tất nhiên nếu bây giờ làm đúng như tôi viết mà không thành công thì tôi chịu.
Dạ! em cám ơn anh! của em nó chỉ có mỗi "foxz" chứ không có "NEGS.XLS"Thế thì tôi chịu.
Thế thì thử xóa cụm sau đi.Dạ! em cám ơn anh! của em nó chỉ có mỗi "foxz" chứ không có "NEGS.XLS"
With Workbooks("NEGS.XLS")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Bạn thử cách:Em có file excel đuôi .xlsm khi mở lên có báo lỗi
Không thể chạy code và không thể xóa module trong modules
Nhờ các anh/chị giúp em cách khắc phục để có thể sử dụng file bình thường ạ!
.View attachment 230072
Em xin cảm ơnView attachment 230070
Tuyệt quá! đã hết và chạy file ngon!Bạn thử cách:
Mở file hiện hành rồi -> Vào mục Excel Options -> chọn "Disable All Macro with notification" -> Lưu file -> tắt file
Mở file vừa tắt lên -> xóa muodel "foxz" -> Lưu file lại
Mở file lên -> Vào mục Excel Options -> Bật Enbale all macros ->lưu file.
Mở file mới lưu lên xem sao?
Thân!
Dạ! em sửa được rồi ạ!Bạn gửi file lên xem sao?
Hề, mình mò ngịch thôi chả may trúng thì bảo vậy! chứ trình độ con ngan có biết gì đâu.Tuyệt quá! đã hết và chạy file ngon!
Cám ơn rất rất nhiều ạ!
Em mò mãi không ra, tưởng mất hết dữ liệu.
Cảm ơn anh nhiều!
Bài đã được tự động gộp:
Dạ! em sửa được rồi ạ!
Em làm theo cách của @dangky47h đã xử lý thành công.
Cảm ơn các anh-chị trên GPE đã giúp đỡ!
Dù sao em xin cảm ơn! chúc anh sức khỏe và niềm vui.Hề, mình mò ngịch thôi chả may trúng thì bảo vậy! chứ trình độ con ngan có biết gì đâu.
Cơ bản là file của bạn ok là được.
Bạn lưu ý! nếu không được hãy chuyển vị trí file sang thư mục khác nhé! và lặp lại thao tác trên!Dù sao em xin cảm ơn! chúc anh sức khỏe và niềm vui.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2