PDA

View Full Version : code ในการลบและเพิ่มเมนูในเมนูบาร์



anntiant
23 May 2007, 08:32
รบกวนช่วยดูให้หน่อยคะ ว่า code ที่ใช้ในการลบและเพิ่มเมนู View และ Tools
ที่ให้ดูด้านล่างถูกรึป่าวคะ? code นี้จะอยู่ใน This Workbook ค่ะ
Private Sub Workbook_Open()
On Error Resume Next
CommandBars(1).Controls("View").Delete <<
CommandBars(1).Controls("Tools").Delete <<
End Sub
code นี้ลองรันดูแล้วก็สามารถลบได้จริงค่ะ ด้านบนเป็นการลบเมนู

ด้านล่างเป็น code เพิ่มเมนู กลับก่อนการปิดโปรแกรม
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
CommandBars(1).Controls.Add ("View") <<
CommandBars(1).Controls.Add("Tools") <<
End Sub
เมื่อลองรันดูแล้วเมนู View และ Tools ไม่กลับมาค่ะ ???

Ubolwan
23 May 2007, 21:14
ลองแบบนี้ได้ไหมค่ะ



Commandbars(1).Reset

anntiant
24 May 2007, 11:32
ลองแบบนี้ได้ไหมค่ะ



Commandbars(1).Reset

ได้ค่ะ ขอบคุณมากนะคะ