Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbars GONE!
I am trying to help a co-worker get his toolbars back.
No portion of any toolbar is visible so they settings can not be selected/re-enabled. I have tried to run this code, but his verson of Office2003 does not allow the last 2 statements. Nor does the Worksheet menu bar reappear. Application.CommandBars("Worksheet Menu Bar").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True What are my options? -- Regards, John |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbars GONE!
This should put everything back.
Sub fixScreen() With Application .DisplayFullScreen = False .DisplayFormulaBar = True .DisplayStatusBar = True End With With ActiveWindow 'This with statement sets everything to normal .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayGridlines = True End With End Sub "John Keith" wrote: I am trying to help a co-worker get his toolbars back. No portion of any toolbar is visible so they settings can not be selected/re-enabled. I have tried to run this code, but his verson of Office2003 does not allow the last 2 statements. Nor does the Worksheet menu bar reappear. Application.CommandBars("Worksheet Menu Bar").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True What are my options? -- Regards, John |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbars GONE!
hi,
try Application.CommandBars("Worksheet Menu Bar").enabled = True regards FSt1 "John Keith" wrote: I am trying to help a co-worker get his toolbars back. No portion of any toolbar is visible so they settings can not be selected/re-enabled. I have tried to run this code, but his verson of Office2003 does not allow the last 2 statements. Nor does the Worksheet menu bar reappear. Application.CommandBars("Worksheet Menu Bar").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True What are my options? -- Regards, John |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbars GONE!
This codes will run, but the only part visible is the formula bar. No tool
bars, no worksheet menu(File Edit View...) the only option is the redX to close out. This is rather critical since its the bosses PC and he needs to work on pay raises!! Is there some file that can be changed to force the toolbars back? We are about to have to do a full reinstall. -- Regards, John "JLGWhiz" wrote: This should put everything back. Sub fixScreen() With Application .DisplayFullScreen = False .DisplayFormulaBar = True .DisplayStatusBar = True End With With ActiveWindow 'This with statement sets everything to normal .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayGridlines = True End With End Sub "John Keith" wrote: I am trying to help a co-worker get his toolbars back. No portion of any toolbar is visible so they settings can not be selected/re-enabled. I have tried to run this code, but his verson of Office2003 does not allow the last 2 statements. Nor does the Worksheet menu bar reappear. Application.CommandBars("Worksheet Menu Bar").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True What are my options? -- Regards, John |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbars GONE!
..Enabled WORKED!... but,
Still none of the tool bars are visible nor available to be added back to the UI. When rt-clicking on the blank-menu-bar area, the only option that shows is Customize. Clciking that only shows one possible toolbar which is the Worksheet menu bar. Where a Standard, Formatting, Borders, Chart, Toolbox etc. -- Regards, John "FSt1" wrote: hi, try Application.CommandBars("Worksheet Menu Bar").enabled = True regards FSt1 "John Keith" wrote: I am trying to help a co-worker get his toolbars back. No portion of any toolbar is visible so they settings can not be selected/re-enabled. I have tried to run this code, but his verson of Office2003 does not allow the last 2 statements. Nor does the Worksheet menu bar reappear. Application.CommandBars("Worksheet Menu Bar").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True What are my options? -- Regards, John |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbars GONE!
This is the code that I ended up using (that allowed my boss to re-choose
which toolbars to show...) Sub Auto_Open() Dim sRet As VbMsgBoxResult Dim cbCommandBar As CommandBar sRet = MsgBox("Do you wish to restore the basic excel settigns?", vbYesNo, "Restore Excel Settings") If sRet = vbNo Then Exit Sub With Application .CommandBars("Worksheet Menu Bar").Enabled = True .CommandBars("ToolBar List").Enabled = True .DisplayFullScreen = False .DisplayFormulaBar = True .DisplayStatusBar = True End With With ActiveWindow 'This with statement sets everything to normal .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayGridlines = True End With On Error Resume Next For Each cbCommandBar In Application.CommandBars cbCommandBar.Enabled = True Next cbCommandBar On Error GoTo 0 End Sub -- Regards, John "FSt1" wrote: hi, try Application.CommandBars("Worksheet Menu Bar").enabled = True regards FSt1 "John Keith" wrote: I am trying to help a co-worker get his toolbars back. No portion of any toolbar is visible so they settings can not be selected/re-enabled. I have tried to run this code, but his verson of Office2003 does not allow the last 2 statements. Nor does the Worksheet menu bar reappear. Application.CommandBars("Worksheet Menu Bar").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True What are my options? -- Regards, John |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbars GONE!
where do i type this code i lotst my menu bar and every time i right click
on bar all that comes up is restore, Move , size ect.. How do i fix this ? "John Keith" wrote: This is the code that I ended up using (that allowed my boss to re-choose which toolbars to show...) Sub Auto_Open() Dim sRet As VbMsgBoxResult Dim cbCommandBar As CommandBar sRet = MsgBox("Do you wish to restore the basic excel settigns?", vbYesNo, "Restore Excel Settings") If sRet = vbNo Then Exit Sub With Application .CommandBars("Worksheet Menu Bar").Enabled = True .CommandBars("ToolBar List").Enabled = True .DisplayFullScreen = False .DisplayFormulaBar = True .DisplayStatusBar = True End With With ActiveWindow 'This with statement sets everything to normal .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True .DisplayHeadings = True .DisplayGridlines = True End With On Error Resume Next For Each cbCommandBar In Application.CommandBars cbCommandBar.Enabled = True Next cbCommandBar On Error GoTo 0 End Sub -- Regards, John "FSt1" wrote: hi, try Application.CommandBars("Worksheet Menu Bar").enabled = True regards FSt1 "John Keith" wrote: I am trying to help a co-worker get his toolbars back. No portion of any toolbar is visible so they settings can not be selected/re-enabled. I have tried to run this code, but his verson of Office2003 does not allow the last 2 statements. Nor does the Worksheet menu bar reappear. Application.CommandBars("Worksheet Menu Bar").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True What are my options? -- Regards, John |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
toolbars | New Users to Excel | |||
ToolBars | New Users to Excel | |||
Toolbars | Excel Discussion (Misc queries) | |||
Please Help, No Toolbars in my view-toolbars! | Excel Programming | |||
Toolbars | Excel Programming |