특정 Excel 파일의 메뉴 항목 만들기

Question

사용자가 특정 파일을 열 때마다 특정 메뉴/단추가 리본에 나타나길 원합니다. 그게 가능하니?

사용자가 "ABC.xlsx"를 열었을 때 맨 위에있는 리본에 메뉴/단추를 표시하고 사용자가 파일을 닫을 때까지 표시되도록해야합니다.

커스텀 오른쪽 클릭 메뉴를 생성하는 옵션을 보았습니다. 표준 메뉴에서 옵션을 찾고 있습니다.

Answer 1

이이

Private Sub Workbook_Open() 
    On Error Resume Next 
    Dim MenuBar As CommandBar 
    Dim NewMenu As CommandBarPopup 
    Dim NewSubMenu As CommandBarPopup 
    Dim NewMenuItem As CommandBarButton 
    ' Create new item on Worksheet Menu Bar 
    Set MenuBar = Application.CommandBars("Worksheet Menu Bar") 
    Set NewMenu = MenuBar.Controls.Add(Type:=msoControlPopup) 
    NewMenu.Caption = "new menu" 

    Set NewMenuItem = NewMenu.Controls.Add(Type:=msoControlButton) 
    With NewMenuItem 
    .Caption = "My Menu" ' Menu name 
    .FaceId = 9 
    .OnAction = "Module1.Mymacro" ' call macro here 
    End With 

    End Sub