VBA to do full screen, no headings, no formula bar etc etc

[manc]

Good morning Demigods,

I am after a short bit of vba to do the following,



a) on open, the workbork is displayed full screen, no formula bar, no headings, no gridlines, no sheet tabs

I will also have a button, where above code would be assigned to, and user could toggle between full screen and normal view.




Thanks for your viewing and digestion time taken reading this post. Any help/ideas muchly appreciated.

Regards
manc

 

[marky_mark]

Hi,

Found this thread and it's doing exactly what I needed it to do, however, I'm unable to edit cells when everything is hidden. I've checked for basic things liked locked cells and protected sheets and it's not resolved the issue. Any ideas would be much appreciated, thanks.

 

[KMH]

try this code and put in thisworkbook module

Private Sub Workbook_Activate()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
End Sub


Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = True
End Sub

Hi, I tried this code and it worked. However, when I close the workbook, and reopen it, it automatically saved the workbook with the information in it, instead of asking me if I want to save it before closing the workbook.

Does anyone know how to change that one aspect? Make it throw the Save As box instead of saving over the original workbook "template".

 

[KMH]

try this code and put in thisworkbook module

Private Sub Workbook_Activate()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
End Sub


Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = True
End Sub

Thanks for the above! I amended it to keep the tabs visible while in full screen mode. But ESC doesn't work for me to deactivate fullscreen mode. Is there some other code I need to put in? Thanks in advance for your assistance.