สอบถามการปิดไม่ให้ผู้ใช้งานเปลี่ยนมุมมองของ Sheet ไปเป็นอย่างอื่น จาก NornalView
Posted: Sat Apr 23, 2022 1:46 pm
ทำไฟล์ให้คุณครูใช้งาน แล้วคุณครูชอบเปลี่ยนมุมมอง เปลี่ยนเปอร์เซ็นต์การย่อ ขยาย ชีท
แล้วมีปัญหามาสอบถามว่าของดิฉันทำไมเป็นแบบนี้ ไม่เหมือนของครูคนนั้น
ตอนนี้ที่ทำได้ก็แค่ให้เปลี่ยนกลับมาเป็น NormalView ตอนชีท Active ขึ้นมา ตามโค๊ด
แต่ความต้องการจริง ๆ คือตัดปัญหาไม่ให้เปลี่ยน คือ ปิดไม่ให้เปลี่ยนมุมมอง จาก Ribbon ให้เหลือแค่ NormalView และปิดไม่ให้ย่อขยายชีท จะทำได้อย่างไรครับ
แล้วมีปัญหามาสอบถามว่าของดิฉันทำไมเป็นแบบนี้ ไม่เหมือนของครูคนนั้น
ตอนนี้ที่ทำได้ก็แค่ให้เปลี่ยนกลับมาเป็น NormalView ตอนชีท Active ขึ้นมา ตามโค๊ด
Code: Select all
Private Sub Worksheet_Activate()
ActiveWindow.View = xlNormalView
'If ActiveWindow.View <> xlNormalView Then ActiveWindow.View = xlNormalView
End Sub
การปิดเมนูย่อยน่าจะต้องจัดการด้วย XML ซึ่งจะมีความยุ่งยาก ส่วนการปิด Ribbon สามารถใช้ VBA เข้าไปจัดการได้แต่ผู้ใช้ย่อมไม่สะดวกครับ