Làm sao xoá MeNu tự tạo khi đóng file?

[thanhphuong]

Trong một file em có thiết kế một MeNu tự tạo cho file chương trình nhưng khi đóng file, cái MeNu đó cứ "chình ình" trên thanh Menu chính khi mở Excel hoặc khi làm việc với các file Excel khác. Vậy cho em hỏi làm sao có thể tắt cái MeNu đó khi đóng file(Tất nhiên khi mở file nó lại có tác dụng)
Trong sự kiện BeforeClose của Workbook em viết như sau nhưng nó không có tác dụng

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    UName = ABC
    CommandBars("Worksheet Menu Bar").Controls(UName).Delete
End Sub

Mong nhận được sự giúp đỡ, em xin cám ơn
P/S : Trong MeNu đó có các menu cấp 2 nữa

 

[huuthang_bd]

Trong một file em có thiết kế một MeNu tự tạo cho file chương trình nhưng khi đóng file, cái MeNu đó cứ "chình ình" trên thanh Menu chính khi mở Excel hoặc khi làm việc với các file Excel khác. Vậy cho em hỏi làm sao có thể tắt cái MeNu đó khi đóng file(Tất nhiên khi mở file nó lại có tác dụng)
Trong sự kiện BeforeClose của Workbook em viết như sau nhưng nó không có tác dụng

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    UName = ABC
    CommandBars("Worksheet Menu Bar").Controls(UName).Delete
End Sub

Mong nhận được sự giúp đỡ, em xin cám ơn
P/S : Trong MeNu đó có các menu cấp 2 nữa

Trong code của bạn UName là cái gì? Vị trí đó phải là mã số Index của Control.
Nếu bạn muốn xoá hết, đưa Menu về trạng thái ban đầu thì sử dụng phương thức Reset

Application.CommandBars("Worksheet Menu Bar").Reset

Viết tiếp một đoạn code cho sự kiện Workbook_Open để tạo lại Menu khi mở file.