Cách ẩn và hiện sheet có pass

[Lê Thị Hoàng Yến]

Kính gửi anh chị,
Nhờ các anh chị giúp cách hide và unhide 1 sheet có cài pass nhé.
Ví dụ file đính kèm, muốn hide và unhide sheet PrireCOOP và Price MEGA khi unhide sử dụng pass.
Cảm ơn anh chị nhé.
Hoàng Yến

 

[Loc Uyen]

Kính gửi anh chị,
Nhờ các anh chị giúp cách hide và unhide 1 sheet có cài pass nhé.
Ví dụ file đính kèm, muốn hide và unhide sheet PrireCOOP và Price MEGA khi unhide sử dụng pass.
Cảm ơn anh chị nhé.
Hoàng Yến

Chị thử cái này nè, em mới thử thấy được á. hihi.
Link

 

[Lequocvan]

Đây nè, code có trong file nhé, mật khẩu là godi

 

[Lê Thị Hoàng Yến]

Đây nè, code có trong file nhé, mật khẩu là godi

Bạn viết code dài, muốn xem để viết lại cho file mới hơi khó đối với người chưa biết về VBA như mình. Cảm ơn bạn

 

[Quang_Hải]

Kính gửi anh chị,
Nhờ các anh chị giúp cách hide và unhide 1 sheet có cài pass nhé.
Ví dụ file đính kèm, muốn hide và unhide sheet PrireCOOP và Price MEGA khi unhide sử dụng pass.
Cảm ơn anh chị nhé.
Hoàng Yến

Mình khuyên bạn bỏ qua dự án này đi, không lợi ích gì cả. Vả lại ẩn hiện sheet thì cần gì pass, trừ khi bạn muốn khóa VBA. VBA có khóa thì cũng bị bẻ trong vòng vài giây thôi.
Nên học các giải thuật để hỗ trợ công việc là tốt nhất, đừng học mấy cái vụ khóa sheet, xóa dữ liệu hay xóa file... Những thứ đó toàn là vô bổ.

Thật ra muốn ẩn hiện sheet thì chỉ cần câu lệnh:

sheets("ten sheet").visible = True ' hien sheet (1)
sheets("ten sheet").visible = False' an sheet (2)
sheets("ten sheet").visible = XLVeryHidden' sieu an (3)

Với cách ẩn sheet (3) thì không thể hiện sheet bằng cách thông thường, mà phải dùng code, hoặc vào cửa sổ VBA để cho hiện sheet ra

Vài lời chia sẻ, bạn tự quyết định bài toán của mình nhé

 

[huuthang_bd]

Kính gửi anh chị,
Nhờ các anh chị giúp cách hide và unhide 1 sheet có cài pass nhé.
Ví dụ file đính kèm, muốn hide và unhide sheet PrireCOOP và Price MEGA khi unhide sử dụng pass.
Cảm ơn anh chị nhé.
Hoàng Yến

Đây nè bạn.

 

[Lê Thị Hoàng Yến]

Chị thử cái này nè, em mới thử thấy được á. hihi.
Link

Cảm ơn em nhé!

Bài đã được tự động gộp: 18/10/18

Mình khuyên bạn bỏ qua dự án này đi, không lợi ích gì cả. Vả lại ẩn hiện sheet thì cần gì pass, trừ khi bạn muốn khóa VBA. VBA có khóa thì cũng bị bẻ trong vòng vài giây thôi.
Nên học các giải thuật để hỗ trợ công việc là tốt nhất, đừng học mấy cái vụ khóa sheet, xóa dữ liệu hay xóa file... Những thứ đó toàn là vô bổ.

Thật ra muốn ẩn hiện sheet thì chỉ cần câu lệnh:

sheets("ten sheet").visible = True ' hien sheet (1)
sheets("ten sheet").visible = False' an sheet (2)
sheets("ten sheet").visible = XLVeryHidden' sieu an (3)

Với cách ẩn sheet (3) thì không thể hiện sheet bằng cách thông thường, mà phải dùng code, hoặc vào cửa sổ VBA để cho hiện sheet ra

Vài lời chia sẻ, bạn tự quyết định bài toán của mình nhé

Cảm ơn chia sẽ của bạn !