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

change the 3rd argument of the commandbars.add to false
(you want a "toolbar" not a "menubar"

also note that the deletebar works better
when you precide it with application.


Option Explicit

Private Const CStCmdBar As String = "Platnosci"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteCommandbar
End Sub
Private Sub Workbook_Open()
CreateCommandbar
End Sub

Sub CreateCommandbar()
Call DeleteCommandbar
With Application.CommandBars.Add(CStCmdBar, msoBarFloating, False,
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
End Sub
Sub DeleteCommandbar()
On Error Resume Next
Application.CommandBars(CStCmdBar).Delete
End Sub




--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Przemek wrote :

>

Tx for help, it works!

Przemek