Private Sub Workbook_Open()
Dim cBars
Application.ScreenUpdating = False
For Each cBars In Application.CommandBars
cBars.Enabled = False
Next
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.Caption = "Corpco DBClients.xls"
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
.ScreenUpdating = True
End With
Sheets("Start").Select
Range("A15").Select
UFrmMainMenu.Show
End Sub
'-----------
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"MarMo"
wrote in message
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