Formularbar won't disappear with VBA code
 

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

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

Formularbar won't disappear with VBA code
 

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

Formularbar won't disappear with VBA code
 

Hi Jim ,

Thanks for the modifications in the code.
It works fine.

MarMo


"Jim Cone" wrote in message
...
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