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

  • Thread starter Deleted member 1294
  • Ngày gửi
Trạng thái
Không mở trả lời sau này.
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á !
 

Trần Hoài

Yêu THVBA
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:
D

Deleted member 1392

Guest
@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

Yêu THVBA
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

Yêu THVBA
@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

Yêu THVBA
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
 
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ỉ.
 
Trạng thái
Không mở trả lời sau này.
Top