addin and main menu disappears

[Przemek]

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

 

[keepITcool]

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 :

 

[Przemek]

Tx for help, it works!

Przemek