Formularbar won't disappear with VBA code

  • Thread starter Thread starter MarMo
  • Start date Start date
M

MarMo

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

---------------------------------------------------
 
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" <[email protected]>
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
 
Back
Top