Tự động xoá file Exel nếu điều kiện không hợp lệ.

[gakon_Office]

Xin hỏi các thầy trong ban GPE VBA có thể thực hiện đc điều này không ạ?
Nghĩa là nếu điều kiện không hợp lý thì file sẽ bị xoá tan tành không còn một dấu vết gì để mà lưu luyến nữa.
Nếu có xin hướng dãn cho em.
THANKS

 

[khoavu87]

Xin hỏi các thầy trong ban GPE VBA có thể thực hiện đc điều này không ạ?
Nghĩa là nếu điều kiện không hợp lý thì file sẽ bị xoá tan tành không còn một dấu vết gì để mà lưu luyến nữa.
Nếu có xin hướng dãn cho em.
THANKS

gakon mô tả kỹ hơn một chút được ko?
- không hợp lệ ở đây là như thế nào?
- xóa khi mở file lên, hay khi nó sai công thức gì đó thì nó xóa file luôn. Chung quy lại cũng chưa hiểu gì câu hỏi.

 

[gakon_Office]

gakon mô tả kỹ hơn một chút được ko?
- không hợp lệ ở đây là như thế nào?
- xóa khi mở file lên, hay khi nó sai công thức gì đó thì nó xóa file luôn. Chung quy lại cũng chưa hiểu gì câu hỏi.

Hì! Cả 2 trường hợp đi anh 2.
Điều kiện về thời gian chẳng hạn.
Trường hợp 1:khi mởi file lên sau 30 phút file sẽ hiện lên một thông báo có 1 nút OK nhấn OK là vĩnh biệt!
Trường hợp 2:khi trong file Em đặt thời gian là 13h chẳng hạn. Nếu mở sau thời gian 13h 1 khoảng thời gian sau quá 30' mà mở file lên thì cũng hiện tượng như trên!
Anh cố gắng nhé!
Mục đích em chỉ cho xem báo cáo trong 1 khảong thời gian. File này em cũng không yêu cầu họ chỉnh sửa thao tác hay là lưu.
Thân!

 

[khoavu87]

Hì! Cả 2 trường hợp đi anh 2.
Điều kiện về thời gian chẳng hạn.
Trường hợp 1:khi mởi file lên sau 30 phút file sẽ hiện lên một thông báo có 1 nút OK nhấn OK là vĩnh biệt!
Trường hợp 2:khi trong file Em đặt thời gian là 13h chẳng hạn. Nếu mở sau thời gian 13h 1 khoảng thời gian sau quá 30' mà mở file lên thì cũng hiện tượng như trên!
Anh cố gắng nhé!
Mục đích em chỉ cho xem báo cáo trong 1 khảong thời gian. File này em cũng không yêu cầu họ chỉnh sửa thao tác hay là lưu.
Thân!

a/Trường hợp 1 hêy: Cái này nó cũng tương tự như mấy bài trước gakon hỏi thôi:
- Thủ tục xoá file:

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

- Sự kiện mở file sau 30' thì xoá file:

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:30"), "KillFile" '--->30 giay de kiem tra hey
End Sub

PM: Thanh Hoá City, đang làm việc tại Hà Nội.

 

[gakon_Office]

a/Trường hợp 1 hêy: Cái này nó cũng tương tự như mấy bài trước gakon hỏi thôi:
- Thủ tục xoá file:

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

- Sự kiện mở file sau 30' thì xoá file:

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:30"), "KillFile" '--->30 giay de kiem tra hey
End Sub

Code đẹp quá.Anh 2 quê ở đâu vậy?
Anh 2 thông cảm nhé công việc của em hay phải gửi báo cáo cho mọi người.
Nhưng đôi khi có những thành phần cứ tò mò khó chịu nên em hay quan tâm đến vấn đề security.
Đặt Pass Open thì họ lại không xem đc, Pass không có ký tự đặc biệt thì họ pá đc.
Còn pass có ký tự đặc biệt thì potay nhưng tính em không nhớ lâu nên quên pass Open thế là đành chịu!

 

[khoavu87]

Vấn đề security thì Gakon tốt nhất đừng nên quan tâm đến làm gì. Vì bảo mật trong excel thì khó mấy cũng phá được. Thôi nên tập trung học code hay hơn mấy cái vụ khoá mật khẩu này.

 

[gakon_Office]

Vấn đề security thì Gakon tốt nhất đừng nên quan tâm đến làm gì. Vì bảo mật trong excel thì khó mấy cũng phá được. Thôi nên tập trung học code hay hơn mấy cái vụ khoá mật khẩu này.

Thế mà pass Open chính tay em đặt bằng các ký tự Symboy quên cái là em bó tay!
Anh có giải pháp gì về vấn đề nay gửi và i a hu cho em nhé!
Àh! Anh có bảng phím tắt của các ký tự đặc biệt không? Nếu có gửi cho em nhé!
Tạm biệt all & gút nai