Tự động ẩn Sheet với mọi trường hợp!

[hauomdldgh]

Xin chào, các bác ơ. Cho em xin hỏi trong VBA có cách nào viết mã để thực hiện lệnh này vào xlSheetHidden mà cứ nhấn F9 hoặc thực hiện xong 1 hàm bất kỳ lệnh "xlSheetHidden" lại được cập nhật để cho nó luôn ẩn. Chỉ khi vào VBA -> vào mã đó làm cho nó ngừng hoạt động rồi cho nó "xlSheetVisible" trở lại ở Sheet đó thì mới dừng lại được. Xin giúp em viết mã với? Cảm ơn trước.

Cụ thể là:

Lần 1: Khi bạn ở file *.xls lên bạn không thể thấy được Sheet23 và nó luôn ẩn như thế cho dù người dùng có vào VB và sửa lại cho Sheet23 là "xlSheetVisible".
Lần 2: Khi họ tưởng rằng mình đã mở được Sheet23 thì khi vào đó nhấn F9 thì Sheet23 biến mất tiêu. Tất nhiên Sheet23 vẫn tồn tại bạn vẩn có thể lấy dữ liệu từ Sheet này ra được, nhưng không thể nào biết được các đoạn mã nằm trong đó.
Tất nhiên em cũng làm luôn các khóa cho VBA để họ khỏi vào mà sửa lại lệnh hiển thị đó được. Như vậy họ có thể xem nhưng không thể thay đổi các hàm trong đó. Anh nghĩ sao?

 

[anhtuan1066]

Mục 1:

nó luôn ẩn như thế cho dù người dùng có vào VB và sửa lại cho Sheet23 là "xlSheetVisible".

Mục 2:

Khi họ tưởng rằng mình đã mở được Sheet23

Nhưng mà
Mục 3:

Tất nhiên em cũng làm luôn các khóa cho VBA để họ khỏi vào mà sửa lại lệnh hiển thị đó được

Bạn đã khóa việc xem code rồi thì lấy đâu có dc mục 1 và mục 2? Làm sao người ta xem code cũa bạn dc mà chỉnh Sheet23 là "xlSheetVisible"
Tôi chưa hiễu lắm
Mến
ANH TUẤN

 

[hauomdldgh]

Vấn đề ở đây, là em nghỉ người đơn giản nhất cũng biết cách dò Password của VBA nên chỉ dùng lệnh thì có thể qua mặt được các trình dò tìm password VBA. Làm cho nó trở thành vô dụng.

Tức làm mình có thể tùy biến công thức đi sao cho nó khó hiểu đối với những bình thường thích dò pass đó đi. Thế là lệnh vẫn chạy mặc dù họ có cố gắng nắm bắt nó. Họ không biết nó nằm ở đâu và tại sao không thể dừng nó lại được.

 

[anhtuan1066]

He... he... Bạn nói tôi nghe hơi bị... lạ... Nếu người nào biết dc cách mở pass VBA thì xem như cũng là cao thủ rồi đấy... Nên dù bạn có viết code gì thì bạn có chắc là qua mặt họ nỗi ko?
ANH TUẤN

 

[hauomdldgh]

Em nghĩ có thể là không với phần lớn người. Nhưng yêu cầu ở đây là: Trước hết phải làm được lệnh có phần ẩn và hiện cái đã. Rồi làm nó càng khó càng tốt. À mà phải luôn được chạy chứ không phải vào Macro -> Run đâu nha.

 

[salam]

Em nghĩ có thể là không với phần lớn người. Nhưng yêu cầu ở đây là: Trước hết phải làm được lệnh có phần ẩn và hiện cái đã. Rồi làm nó càng khó càng tốt. À mà phải luôn được chạy chứ không phải vào Macro -> Run đâu nha.

Ẩn này.

Private Sub Workbook_Open()
Sheet23.Visible = xlSheetVeryHidden
End Sub

còn hiện thì ngược lại nhé

Sheet23.Visible = xlSheetVisible
Nhưng mà người nào đã mở được Pass của VBA thì họ làm cái gì trong file của bạn mà trả được.

 

[TranThanhPhong]

Xin chào, các bác ơ. Cho em xin hỏi trong VBA có cách nào viết mã để thực hiện lệnh này vào xlSheetHidden mà cứ nhấn F9 hoặc thực hiện xong 1 hàm bất kỳ lệnh "xlSheetHidden" lại được cập nhật để cho nó luôn ẩn. Chỉ khi vào VBA -> vào mã đó làm cho nó ngừng hoạt động rồi cho nó "xlSheetVisible" trở lại ở Sheet đó thì mới dừng lại được. Xin giúp em viết mã với? Cảm ơn trước.

Vấn đề này coi bộ không khả thi rồi bạn! Mình nghĩ chúng ta nên dành thời gian cho việc khác thôi.

TP.