addin and main menu disappears
Hi, I've created addin with small toolbar and additional subs connected
to buttons. But when I'm opening Excel (2003) and my addin is loaded,
main menu ( File, Edit etc.) is disappearing :( How can i resolve that
problem?
Here is my code for my toolbar in ThisWorkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteCommandbar
End Sub
Private Sub Workbook_Open()
CreateCommandbar
End Sub
Sub CreateCommandbar()
Const CStCmdBar As String = "Platnosci"
Call DeleteCommandbar
With Application.CommandBars.Add(CStCmdBar, msoBarFloating, True, True)
..Visible = True
..Position = msoBarTop
..RowIndex = Application.CommandBars("Formatting").RowIndex
..Protection = msoBarNoChangeVisible + msoBarNoCustomize + msoBarNoMove
With .Controls
With .Add(msoControlButton) ' first button
..Style = msoButtonIcon
..FaceId = 107
..OnAction = "ThisWorkbook.Listaplat"
..TooltipText = "Lista platnosci"
End With
With .Add(msoControlButton) 'second button
..Style = msoButtonIcon
..FaceId = 144
..TooltipText = "Platnosci"
..OnAction = "ThisWorkbook.Platnosci"
End With
End With
End With
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Sub DeleteCommandbar()
On Error Resume Next
CommandBars("Platnosci").Delete
End Sub
Przemek
|