D
Deleted member 1294
Guest
Nếu dc bạn gửi file lên đây mình xem dạo này bận quá !
on error resume next
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill thisworkbook.fullname
thisworkbook.close false
Khi bạn tải file trên mạng về, mở lên sẽ hỏi... Do bạn chưa bật lên thôi, nếu không sẽ tự xóa File đi nhé !@Trần Hoài File mở lên tự xoá khi copy sang máy khác là sao bạn mình chưa hiểu?. Mình vẫn mở file lên được bình thường mà thấy bị xoá gì đâu?
Bạn cần đăng nhập để thấy hình ảnh
Bác nói đúng đó, code mình cũng xem được toàn bộ. Tải nên để mọi người học hỏi thêm.Mình mở File "tự xóa" và check code thì thấy khi mở File nếu không đáp ứng đủ Điều kiện thì sẽ báo tới người dùng và chạy dòng lệnh.
Đoạn Kill và close đóng vai trò tự xóa File này.Mã:on error resume next ThisWorkbook.ChangeFileAccess xlReadOnly Kill thisworkbook.fullname thisworkbook.close false
Bạn sưu tầm nhiều phết nhỉ.Chào mọi người !
Hôm nay mình xin chia sẻ cho ai có nhu cầu nghiên cứu, học hỏi cách viết code nha
Đính kèm link cho mọi người tham khảo, có 3 File:
- File không unprotect sheet
- File không unhide moduel VBA
- File mở lên tự xóa khi copy sang máy khác dùng
Bạn cần đăng nhập để thấy link
hoặc
Bạn cần đăng nhập để thấy link
Em sưu tầm tích lũy chút kiến thức anh, chưa làm được trò gì đâu.Bạn sưu tầm nhiều phết nhỉ.
Bác USA_Covid19 xem hộ lại, link tải@Vuong link đã cập nhậtBạn cần đăng nhập để thấy link
Xem bài viết #4:Bác USA_Covid19 xem hộ lại, link tảiBạn cần đăng nhập để thấy linkko hiệu lực nữa rồi có thể gửi link hộ em Ngocnhu.dongdo1983@gmail.com dc ko ạ. Cảm ơn Bác nhiều!