Làm sao bỏ Name Manager!

[ThuNghi]

Cứ mỗi lần mở file là Name Manager có sẵn trong tools, mặc dù tôi đã gỡ trong AddIns. Và cứ mỗi lần mở Name Manager là trong menu Tools hiện thêm 1 dòng Name Manager. Xin giải pháp bỏ, thấy rất khó chịu.
Xin cám ơn!

 

[tedaynui]

Em không nhớ rõ lắm là Anh Duyệt hoặc Tuân đã có 1 đoạn code dùng để Reset Menu. Anh tìm và dùng thử xem.

Thân!

 

[ThuNghi]

Nhưng mình đâu cần reset menu, chỉ muốn bỏ thôi, mà nhìn mấy cái sub đó oải quá. Tedaynui nghiên cứu hộ cái. Nó nằm đâu trong này.

Private Sub Workbook_Open()
'   This sub is executed when the workbook (or add-in) is opened

''''''''''''''''''''''''''''''''''''''''''''''''''
'   Change the following variables to customize...
    XLCommandBar = "Worksheet Menu Bar"
    XLMenu = "Tools"
    XLMenuItem = ""
    NewMenuItem = "&Name Manager..."
    NewMenuItemMacro = "StartNameLister"
''''''''''''''''''''''''''''''''''''''''''''''''''
   
    Dim NewItem As CommandBarButton
    
'   Delete the current menu if it exists (just in case)
    On Error Resume Next
    Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(XLMenuItem).Controls(NewMenuItem).Delete
    Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(NewMenuItem).Delete
    On Error GoTo 0

'   Create the new menu item
    If XLMenuItem = "" Then
        Set NewItem = Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls.Add
    Else
        Set NewItem = Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(XLMenuItem).Controls.Add
    End If
   
'   Specify the Caption and OnAction properties
    With NewItem
        .Caption = NewMenuItem
        .OnAction = NewMenuItemMacro 'This sub is in Module1
        .FaceId = 0 'This is the image displayed next to the the menu item text
        .BeginGroup = True '   Add a separator bar before the menu item
    End With
    Exit Sub
    
'   If an error occured, tell the user
    If Err <> 0 Then
        MsgBox "An error occurred.", vbInformation
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'   This sub is executed when the workbook (or add-in) is closed.
'   It simply removes the menu item from the Data menu
    On Error Resume Next
    Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(XLMenuItem).Controls(NewMenuItem).Delete
    Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(NewMenuItem).Delete
End Sub

 

[SoiBien]

Chắc là lỗi do nguyên nhân khác, không phải lỗi của addins này đâu, em cũng chạy nó bình thường mà. Bác có thay đổi gì nó không ạ?
Bác tìm xem trong ổ đĩa của bác có mấy cái file NameManager xem? coi nó nằm đâu, không chừng nó nằm trong thư mục Startup hoặc XLStartup thì nó mới load hoài chứ.
còn nếu lỡ thay đổi thì bác cứ lôi cái bản zin ra, addins nó vào, nó sẽ tự thay thằng kia, rồi bác bỏ nó đi lần nữa là xong.

 

[nvson]

Có lỗi đấy
Sở dĩ khi Close Workbook mà không xoá được menu là vị trong thủ tục đóng Workbook bạn không đặt giá trị cho các biến: XLMenu, XLMenuItem, NewMenuItem, XLCommandBar...
Bạn sửa lại như sau:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'   This sub is executed when the workbook (or add-in) is closed.
'   It simply removes the menu item from the Data menu
    XLCommandBar = "Worksheet Menu Bar"
    XLMenu = "Tools"
    XLMenuItem = ""
    NewMenuItem = "&Name Manager..."
    NewMenuItemMacro = "StartNameLister"
    On Error Resume Next
    Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(XLMenuItem).Controls(NewMenuItem).Delete
    Application.CommandBars(XLCommandBar).Controls(XLMenu).Controls(NewMenuItem).Delete
End Sub

Nếu bạn dùng chung các biến thì phải khai báo ở ngoài....

 

[ThuNghi]

Nó vẫn còn trên thanh Tools mặc dù không có mở file nào, chỉ có Excel
Để cài lại thử "Zin"

 

[tedaynui]

Vậy anh thử vào Menu View / Toolbars xem có tên "Name Manager" không, nếu có thì bỏ tích chọn vào khởi động lại Excel xem.

Thân!