PDA

View Full Version : เขียน VBA ให้ปิดเมนูทั้งหมด



somkiat.t
30 May 2007, 05:00
ผมต้องการเขียน VBA เพื่อที่จะให้ Excel ปิดเมนูทั้งหมด ตอนนี้ใช้ Excel 2003 อยู่ครับ
พร้อมกันนี้ได้แนบแฟ้มที่สามารถเปิดเครื่องมือในส่วนอื่นๆ ได้แล้ว แบบว่าต้องการให้ User ใช้เฉพาะ UserForm ที่สร้างขึ้นมาอย่างเดียว ขอความกรุณาชี้แนะด้วยนะครับ

อรวีร์
30 May 2007, 10:10
ซ่อนเมนู File,Edit, . . .
Application.CommandBars(1).Enabled = False

somkiat.t
31 May 2007, 05:34
ขอบคุณมากครับ

somkiat.t
31 May 2007, 17:54
ได้นำไปใช้แล้วครับ แต่ผมมีปัญหาตรงที่ว่าหลังจากใช้แล้ว จะไม่สามารถเรียก
Menu กลับคืนมาได้อีก รวมทั้ง File อื่นๆ ที่ไม่ได้เขียนคำสั่งนี้ไว้ก็ไม่สามารถ
เปิด Menu ได้ ไม่ทราบว่าแก้ปัญหา เรียก Menu กลับคืนมาได้อีกไหมครับ

Ubolwan
31 May 2007, 18:58
ลองรหัสนี้ก่อนค่ะ


Application.Commandbars(1).Reset

อรวีร์
31 May 2007, 21:23
งงค่ะ :o :)
อรวีร์เห็น Code ในแฟ้มแนบของคุณใช้ . . .
Application.CommandBars("Standard").Visible = False
ใน Sub Workbook_Open( )

และ
Application.CommandBars("Standard").Visible = True
ใน Sub Workbook_BeforeClose( )

เลยงงว่าทำไมไม่ทราบว่าจะปรับให้เมนูกลับมาได้อย่างไรจากคำสั่ง
Application.CommandBars(1).Enabled = False