Xóa hết dữ liệu trong Sheet (1 người xem)

[saomai6692]

Kính chào các anh chị, em lại phiền anh chị rồi đây. em có một ý tưởng: khi file hết hạn sử dụng thì dữ liệu trong file của từng Sheet cũng TỰ ĐỘNG bị xóa HẾT. Anh chị giúp em viết tiếp code này nhé. trân trọng cảm ơn. (File này em xin các anh chị trên diễn đàn)

 

[dongducnhiem]

Kính chào các anh chị, em lại phiền anh chị rồi đây. em có một ý tưởng: khi file hết hạn sử dụng thì dữ liệu trong file của từng Sheet cũng TỰ ĐỘNG bị xóa HẾT. Anh chị giúp em viết tiếp code này nhé. trân trọng cảm ơn. (File này em xin các anh chị trên diễn đàn)

1/Khi mở File, người ta không bấm Enable mà bấm Disable thì làm sao mà xóa?
2/ Xóa xong rồi mà khi đóng File mà người ta không Save thì cũng rứa!
3/ Cần thêm gì nữa thì Bạn tự tìm hiểu thêm nha!!!!!!!!!!!!!!!!!!!!!
Gởi File của tôi để bạn tìm hiểu

 

[Quang_Hải]

Kính chào các anh chị, em lại phiền anh chị rồi đây. em có một ý tưởng: khi file hết hạn sử dụng thì dữ liệu trong file của từng Sheet cũng TỰ ĐỘNG bị xóa HẾT. Anh chị giúp em viết tiếp code này nhé. trân trọng cảm ơn. (File này em xin các anh chị trên diễn đàn)

Đã muốn thì luôn có cách, thậm chí có thể âm thầm ép người ta Enable Macros. Nhưng mình lại không muốn đề cập ra ở đây. Chân tình mà nói nên quên đi cái ý nghĩ này càng sớm càng tốt vì nếu người trong cơ quan bạn biết bạn có suy nghĩ này thì không có lợi tí nào cả, và cá tính này sẽ làm lòng mình nặng nế lắm. Hãy thoải mái chia sẻ kiến thức mình có cho mọi người nhé

Vấn đề của bạn có thể sử dụng Code này để xóa luôn cả cái file. Bạn có thể ghép điều kiện hết hạn sử dụng để cho chạy code này

Sub KillFile()
On Error Resume Next
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

 

[Lê Duy Thương]

Gửi saomai6692
do anh quang hai nhiet tình quá cho trường hợp này. Riêng cá nhân tôi sẽ ko giúp và cũng không đưa code này lên.vì ở đây là nơi chia sẻ kiến thức.chúng ta ko thể lường trước được điều gì khi chính người dùng đem code đi hại người khác.mà khi đã viết được 1 ứng dụng nhỏ nếu không muốn chia sẻ cho người khác thì thôi. Còn đã chấp nhận chia sẻ thì cần mấy cái code độc đó làm gì.
Kiến thức là vô tận

 

[saomai6692]

em cảm ơn các anh chị, tiêu chí của em cũng là trao đổi thôi cũng như các anh ở trên đã nói. Do vậy em đồng ý với ý kiến của các anh, chắc các anh viết ra được thì không bao giờ hỏi như em phải ko ạ. Cảm ơn