Snasui Excel Forum

สวัสดีครับเพื่อนสมาชิกทุกท่าน
วันนี้ผมมีปัญหาขอความช่วยเหลือ คือหากผมต้องการซ่อน work sheet โดยใช้ VBA ที่ผมทำได้คือ
ยกตัวอย่าง

sheets("DATA").select
activewindow.selectsheets.visible = false

ซึ่งวิธีนี้ผมมองว่า หากคลิกขวาเลือก unhide ก็แสดงชีทได้เหมือนเดิม
ผมอยากทราบว่าพอจะมีวิธีโค้ดแบบไหนไหมครับที่ ซ่อนชีทได้และใส่ password จึงจะแสดงชีทนั้นได้
ขอบคุณมากครับผม

ปรับ Code เป็น ActiveSheet.Visible = 2 จะไม่สามารถยกเลิกการซ่อนด้วยการคลิกขวาได้ครับ

ขอบคุณครับผม
ผมพอจะหาความรู้เพิ่มจากค่าตัวเลขได้ที่ไหนครับผม

เข้าไปใน VBE แล้วดูที่หน้าต่าง Propeties หากไม่มีหน้าต่างนี้ให้เปิดโดยกดแป้น F4 จากนั้นคลิกที่ชีทใด ๆ ในหน้าต่าง VBAProject แล้วสังเกตที่ Visible ในหน้าต่าง Properties ลองคลิก Dropdown เพื่อดู Option ของ Visible ครับ

ขอบคุณครับ