Tool mở khóa sheet, unviewable...

Trần Hoài

Thành viên mới
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


hoặc
 
Sửa lần cuối:

Ngày Mới

SMod
Thành viên BQT
@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
 

linhlbk

Thành viên mới
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.
Mã:
on error resume next
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill thisworkbook.fullname
thisworkbook.close false
Đoạn Kill và close đóng vai trò tự xóa File này.
 

Trần Hoài

Thành viên mới
@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
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

Thành viên mới
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.
Mã:
on error resume next
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill thisworkbook.fullname
thisworkbook.close false
Đoạn Kill và close đóng vai trò tự xóa File này.
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.
File viết từ rất lâu rồi Excel 2003 hiểu rồi :p
 

Lương Tuấn Ba

Thành viên mới
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


hoặc
Bạn sưu tầm nhiều phết nhỉ.
 
Top