View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Bill P Bill P is offline
external usenet poster
 
Posts: 7
Default Toolbars not appearing

Hi everyone,

In my Excel app (XL2002), I hide all the toolbars and restore them on a
close or deactivate event. Here's my code to restore them.

' Restores all of the hidden toolbars
Sub RestoreAllToolBars()
Dim vToolbars As Variant, iIndex As Integer
vToolbars = GetAllSettings(APP_NAME, TOOLBAR_SECTION)

Application.ScreenUpdating = False

For iIndex = LBound(vToolbars) To UBound(vToolbars)
If vToolbars(iIndex, 1) Then
With Application.CommandBars(vToolbars(iIndex, 0))
.Visible = True
.Protection = msoBarNoProtection
End With
End If
Next iIndex

Application.ScreenUpdating = True
End Sub

When I close my Excel app, the code restores the toolbars (if another
workbook is open), but they don't appear right away. Surprisingly
enough, if I have another workbook open, when I right-click on the area
in the other workbook where they should be, they are shown as checked
off, meaning they were restored, but are not visible. Only when I
minimize and maximize that other workbook do they reappear. What is
going on here?

Thanks in advance,

- Bill