Các cao thủ giúp em code xoá file ! (1 người xem)

[nguyenduong109]

Các cao thủ giúp em code xoá file với ạ.
- File khi chạy sẽ phải mở macro, hoặc chạy qua một file dán tiếp nào đó, nếu không mở thì file không chạy
- Đến một thời gian nhất định file sẽ ra thông báo mở được ? lần.
Nếu mình không sửa lại code thì file sẽ bị xoá.
Vì lý do bảo mật "sơ cấp" nên rất mong giúp đỡ
Xin cảm ơn !

 

[Quang_Hải]

Các cao thủ giúp em code xoá file với ạ.
- File khi chạy sẽ phải mở macro, hoặc chạy qua một file dán tiếp nào đó, nếu không mở thì file không chạy
- Đến một thời gian nhất định file sẽ ra thông báo mở được ? lần.
Nếu mình không sửa lại code thì file sẽ bị xoá.
Vì lý do bảo mật "sơ cấp" nên rất mong giúp đỡ
Xin cảm ơn !

Lý do bảo mật của bạn hoàn toàn hợp lý theo quan điểm cá nhân của bạn, cho nên bạn chịu khó tự tìm tòi các chi tiết code và thiết lập code cho cái file đó. Bảo đảm là sẽ rất rất ít ít người tham gia tư vấn cho bạn về vấn đề này vì nó khó lắm lắm.
1. Không thể ép người dùng mở macro nếu họ cố tình không enable macros. Làm gì được nhau?
2. File đang làm việc tự nhiên bị xoá mất. Nếu bạn là nạn nhân thì bạn sẽ nghĩ gì về đạo đức của đồng nghiệp mình?

 

[nguyenduong109]

Lý do bảo mật của bạn hoàn toàn hợp lý theo quan điểm cá nhân của bạn, cho nên bạn chịu khó tự tìm tòi các chi tiết code và thiết lập code cho cái file đó. Bảo đảm là sẽ rất rất ít ít người tham gia tư vấn cho bạn về vấn đề này vì nó khó lắm lắm.
1. Không thể ép người dùng mở macro nếu họ cố tình không enable macros. Làm gì được nhau?
2. File đang làm việc tự nhiên bị xoá mất. Nếu bạn là nạn nhân thì bạn sẽ nghĩ gì về đạo đức của đồng nghiệp mình?

TL: 2) Mình muốn bảo mật. Có những dữ liệu mà không thể để trong máy người khác quá lâu bạn ạ.
Giống như khi ta gửi một tin nhắn. mà ta chỉ muốn người đọc đọc rồi nhớ trong đầu. Không muốn có "bằng chứng" bạn ạ.
Mình cũng là một người bình thường chỉ biết Vba bập bõm thôi. Nên mới cần tới sự trợ giúp.

 

[Kiều Mạnh]

TL: 2) Mình muốn bảo mật. Có những dữ liệu mà không thể để trong máy người khác quá lâu bạn ạ.
Giống như khi ta gửi một tin nhắn. mà ta chỉ muốn người đọc đọc rồi nhớ trong đầu. Không muốn có "bằng chứng" bạn ạ.
Mình cũng là một người bình thường chỉ biết Vba bập bõm thôi. Nên mới cần tới sự trợ giúp.

Thực ra bạn không chịu tìm thôi trên GPE có cả một Rừng các kiểu các loại khác nhau...và rồi mấy thứ đó cũng chỉ dấu được mấy người mới làm quen với Office thôi bạn
GPE những thành viên cũ hầu như ai cũng biết... nhưng ngại nói và trình bày về vấn đề này...vì vấn đề đạo đức....
nếu bạn thích thì sử dụng code sau sử dụng như thế nào thì tự xử lấy nha mình ./.

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