File Excel tự xóa (1 người xem)

[anhtuan1066]

Chào các bạn!
Lần trước tôi nhớ có người thắc mắc là ko biết có code nào có khả năng tự xóa chính nó ko? Thì đây, tôi sưu tầm dc 1 cái có tác dụng như thế:

Sub Killed()
Application.DisplayAlerts=False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

Nếu khóe léo, có thể định thời cho nó, đến 1 thời điểm xác định chỉ cần mở file lên là nó sẽ tự hủy ngay... hi... hi...
Cái này là vọc chơi cho biết, các bạn ko nên mang đi mà phá người ta
ANH TUẤN

 

[ongtrungducmx25]

Chào các bạn!
Lần trước tôi nhớ có người thắc mắc là ko biết có code nào có khả năng tự xóa chính nó ko? Thì đây, tôi sưu tầm dc 1 cái có tác dụng như thế:

Sub Killed()
Application.DisplayAlerts=False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

Nếu khóe léo, có thể định thời cho nó, đến 1 thời điểm xác định chỉ cần mở file lên là nó sẽ tự hủy ngay... hi... hi...
Cái này là vọc chơi cho biết, các bạn ko nên mang đi mà phá người ta
ANH TUẤN

làm thế nào để định thời gian cho nó tự xóa đi,nếu có ai mở lén thì tự nó sẽ bảo vệ cho mình luôn, xóa đi dữ liệu thì biết đâu mà phục hồi đúng không "anh tuấn"

 

[anhtuan1066]

Bởi vậy phải hêt sức cẩn thận khi sử dụng, xóa là tiêu luôn... Còn chuyện sử dụng nó vào việc gì là tùy vào sáng tạo của mỗi người... Các bạn cứ tự suy nghĩ ra 1 tình huống nào đó cụ thể đi, cũng ko khó lắm đâu
ANH TUẤN

 

[Mr Okebab]

Chào các bạn!
Lần trước tôi nhớ có người thắc mắc là ko biết có code nào có khả năng tự xóa chính nó ko? Thì đây, tôi sưu tầm dc 1 cái có tác dụng như thế:

Sub Killed()
Application.DisplayAlerts=False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
End Sub

Nếu khóe léo, có thể định thời cho nó, đến 1 thời điểm xác định chỉ cần mở file lên là nó sẽ tự hủy ngay... hi... hi...
Cái này là vọc chơi cho biết, các bạn ko nên mang đi mà phá người ta
ANH TUẤN

Rất hay đấy bác ạ.
Tuy nhiên trước đây bác Tedaynui cũng đã mở 1 chủ đề như thế này (vẫn code như thế) và mọi người cũng đã phân tích khá kỹ về TH này. Bác theo dõi nhé

http://www.giaiphapexcel.com/forum/showthread.php?t=3250

Thân!

 

[notfound]

Anh hướng dẫn giúp em cách tạo file exel tự xóa và làm sao định giờ cho nó tự xóa!

Sub Killed()
Application.DisplayAlerts=False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False

 

[tuanbinhthuan]

Các bác ơi em viết chương trình quản lý cho một cửa hàng trên 1 file excel. em muốn cho họ sử dụng thử trong 1 năm thi file tự xóa. em đã làm theo cách các bác đã hướng dẫn mà không được. em muốn các bác hướng dẫn cụ thể giúp em với nhé.

 

[Quang_Hải]

Nếu bạn nào thật sự muốn giỏi VBA thì hãy nhanh chóng dẹp bỏ ngay ý định khóa code, xóa file... Những thứ này chỉ là cản trở khả năng thật sự của các bạn.

 

[dantaichinh]

chào các bạn!
Lần trước tôi nhớ có người thắc mắc là ko biết có code nào có khả năng tự xóa chính nó ko? Thì đây, tôi sưu tầm dc 1 cái có tác dụng như thế:

sub killed()
application.displayalerts=false
thisworkbook.changefileaccess xlreadonly
kill thisworkbook.fullname
thisworkbook.close false
end sub

nếu khóe léo, có thể định thời cho nó, đến 1 thời điểm xác định chỉ cần mở file lên là nó sẽ tự hủy ngay... Hi... Hi...
Cái này là vọc chơi cho biết, các bạn ko nên mang đi mà phá người ta
anh tuấn

anh viết 1 đoạn code xác định thời gian tự xóa đi. Em tham khảo học hỏi.hj