Hello all ,

I made a little application for some users which needs to hide all
commandbars and other stuff when opening the workbook
The only thing that is not disappearing is the formular bar.
This is the code I use for the moment , but if there are better solutions ,
i'm all ears.
Can somone help me with this issue pls

Many thanks
MarMo
--------------------------------------------------
Private Sub Workbook_Open()

Application.ScreenUpdating = False

For Each cbars In Application.CommandBars
cbars.Enabled = False
Next
With .Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.Caption = "Corpco DBClients.xls"
End With

With .ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
With .ActiveWorkbook
.Sheets("Start").Visible = True
.Sheets("input").Visible = True
.Sheets("Clients").Visible = True
.Sheets("Hlp").Visible = True
.Sheets("Manifest").Visible = True
.Sheets("BackupData").Visible = True
.Sheets("RDBMailOutlook").Visible = True
.Sheets("NoMacros").Visible = xlVeryHidden

End With

Application.ScreenUpdating = True

Sheets("Start").Select
Range("A15").Select
UFrmMainMenu.Show

End Sub

---------------------------------------------------