| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 --------------------------------------------------- |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Why does my data disappear? | Charts and Charting in Excel | |||
| Why does some of my data disappear | Excel Discussion (Misc queries) | |||
| how can I let the toolbar disappear | Excel Discussion (Misc queries) | |||
| How do I make it disappear? | New Users to Excel | |||
| Add-Ins disappear | Setting up and Configuration of Excel | |||
Linear Mode
