สอบถามการปิดไม่ให้ผู้ใช้งานเปลี่ยนมุมมองของ Sheet ไปเป็นอย่างอื่น จาก NornalView

[tigerwit]

ทำไฟล์ให้คุณครูใช้งาน แล้วคุณครูชอบเปลี่ยนมุมมอง เปลี่ยนเปอร์เซ็นต์การย่อ ขยาย ชีท
แล้วมีปัญหามาสอบถามว่าของดิฉันทำไมเป็นแบบนี้ ไม่เหมือนของครูคนนั้น
ตอนนี้ที่ทำได้ก็แค่ให้เปลี่ยนกลับมาเป็น NormalView ตอนชีท Active ขึ้นมา ตามโค๊ด

Code: Select all

Private Sub Worksheet_Activate()
ActiveWindow.View = xlNormalView
'If ActiveWindow.View <> xlNormalView Then ActiveWindow.View = xlNormalView
End Sub

แต่ความต้องการจริง ๆ คือตัดปัญหาไม่ให้เปลี่ยน คือ ปิดไม่ให้เปลี่ยนมุมมอง จาก Ribbon ให้เหลือแค่ NormalView และปิดไม่ให้ย่อขยายชีท จะทำได้อย่างไรครับ

[snasui]

การปิดเมนูย่อยน่าจะต้องจัดการด้วย XML ซึ่งจะมีความยุ่งยาก ส่วนการปิด Ribbon สามารถใช้ VBA เข้าไปจัดการได้แต่ผู้ใช้ย่อมไม่สะดวกครับ

วิธีการที่เขียนมาก็สามารถช่วยได้ อาจจะต้องเพิ่มการ Reset กลับมาเป็น Normal view เมื่อมีการเปิดไฟล์ โดยกำหนดให้ Loop เป็น Normal view ทุกชีตเช่นนี้เป็นต้นครับ

[tigerwit]

ขอบคุณครับ