Các file ví dụ về tạo Menu đây

[thidinh]

Để thêm các Icon cho menu sinh động, vào http://skp.mvps.org/facid.htm tải add-in faceId về.
Hình như em thấy nên thêm đoạn code này thì pro hơn là thêm command button:


Private Sub Workbook_Activate()

Call UnhideMenu

End Sub

'---------------------------------------------

Sub Workbook_BeforeClose(Cancel As Boolean)

Call DeleteMenu

End Sub

'---------------------------------------------

Private Sub Workbook_Deactivate()

Call HideMenu

End Sub

'---------------------------------------------

Private Sub Workbook_Open()

Call CreateMenu

End Sub

'---------------------------------------------
Hik.........stop Hack.........