Viết code xóa dữ liệu sau khi không sử dụng

[thang67]

Chào các bạn.
Tôi muốn nhờ các bạn viết một đoạn code với mục đích tự xóa toàn bộ dữ liệu tại 1 sheet hoặc nhiều sheet khi đến một thời điểm nào đó (lấy theo đồng hồ máy tính) bởi vì công việc của tôi đôi khi có dữ liệu nhạy cảm cần phải làm như vậy.
Mong các bạn giúp đỡ!

 

[nanhtrangst]

đánh code này vào
if datetime.time= "ngày muốn xoá" then
range("vùng muốn xóa").clearcontent

 

[ndu96081631]

đánh code này vào
if datetime.time= "ngày muốn xoá" then
range("vùng muốn xóa").clearcontent

Có lộn không vậy DateTime.Date = "ngày muốn xoá" hoặc DateTime.Time = "giờ muốn xoá" chứ ---> Mà viết Date hoặc Time luôn cho rồi
Thêm nữa: Code như bạn vậy thì nếu người ta mở file trước hoặc sau thời gian định trước thì.. im re à

 

[nanhtrangst]

Anh ơi, như chủ topic yêu cầu là đến 1 thời điểm nào đó(1 ngày nào đó, hoặc 1 thời gian nào đó trong ngày đó) thì xóa dữ liệu tại 1 vùng hoặc 1 sheet nào đó. za mình tùy biến mà sử dụng hàm datetime cũng đc mà, khi giờ của máy tính đến đúng thời điểm đó thì thực thi lệnh. Nếu mở file trước thời gian định trước thì sẽ không xóa dữ liệu mà. Còn sau thì mình chỉ cần thêm datetime.date=>"ngày muốn xóa" thôi, nếu người dùng ngay ngày muốn xóa không sử dụng chương trình.
Tóm lại code sẽ là
Nếu giới hạn là ngày

if datetime.date >= "ngày muốn xoá" then (VD: 05/02/2012)
range("vùng muốn xóa").clearcontent

Nếu giới hạn là ngày giờ

if datetime.now >= "ngày giờ muốn xoá" then (VD: 05/02/2012 7:00 AM)
range("vùng muốn xóa").clearcontent

Anh xem có đúng không