Private Sub Workbook_Open()
Application.Goto Cells(1)
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHeadings = False
End Sub
Put the procedure below in a standard module and then add this line to your Workbook_Open event macro:Hi JoeMo,
Sorry this doesnt work?
I have the following code so far
ThanksCode:Private Sub Workbook_Open() Application.Goto Cells(1) Application.DisplayFormulaBar = False Application.DisplayStatusBar = False ActiveWindow.DisplayWorkbookTabs = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayHeadings = False End Sub
Sub MinRibbon()
CommandBars.ExecuteMso "MinimizeRibbon"
End Sub
You are welcome. NO - if the ribbon is minimized, just run the MinRibbon procedure again to maximize it.Hi JoeMo,
many thanks, I take it I just change Minimize to Maximize to unhide
Thanks
Yes, that's likely your problem - I'm running Excel 2010. Untested, but a possible alternative is to replace the CommandBars.ExecuteMso ... line with this:Hi JoeMo,
Still not working, may the problem be I am using 2007?
Thanks