vba 추가기능

Sub show_tab()
Set cbToolbar = Application.CommandBars.Add(csToolbarName, msoBarTop, False, True)

With cbToolbar
Set ctButton1 = .Controls.Add(Type:=msoControlButton, ID:=2950)
Set ctButton2 = .Controls.Add(Type:=msoControlButton, ID:=2950)
Set ctButton3 = .Controls.Add(Type:=msoControlButton, ID:=2950)
End With

With ctButton1
.Style = msoButtonIconAndCaption
.Caption = "Set &Picklists"
.FaceId = 176
.OnAction = "SetPicklist"
End With

With ctButton2
.Style = msoButtonIconAndCaption
.Caption = "Set &Defaults"
.FaceId = 279
.OnAction = "SetDefaults"
End With

With ctButton3
.Style = msoButtonIconAndCaption
.Caption = "&Visibility Settings"
.FaceId = 2174
.OnAction = "VisibilitySettings"
End With


With cbToolbar
.Visible = True
.Protection = msoBarNoChangeVisible
End With
End Sub

==========

Sub accountShow()
Dim cMenu As CommandBar

Set cMenu = Application.CommandBars("Worksheet Menu Bar")
cMenu.Visible = True

If cMenu.Controls(cMenu.Controls.Count).Caption <> "Account" Then
With cMenu.Controls.Add(Type:=msoControlPopup)
.Caption = "Account"
With .Controls.Add(Type:=msoControlButton)
.Caption = "밀앤아이"
.OnAction = ""
.FaceId = 24
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "밀앤아이_ALLSTUDIOS"
.OnAction = ""
.BeginGroup = True
.FaceId = 67
End With
End With
End If
End Sub

==========

Sub accountDelete()

' AddIns("Account").Installed = False
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

==========

현재_통합_문서

Private Sub Workbook_AddinInstall()
Call accountShow
End Sub

 

Private Sub Workbook_AddinUninstall()
Application.CommandBars("Worksheet Menu Bar").Reset
Application.CommandBars("Worksheet Menu Bar").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call accountDelete
End Sub

Private Sub Workbook_Open()
Call accountShow
End Sub