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

M

manc

Active Member
Joined
Feb 26, 2010
Messages
340
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
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)
Sort by date Sort by votes
You need something likie this.

Sub HideStuff()

Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
End Sub
 
Upvote 0
Xld, i have thought this also.

But how would I stop the macro in full screen mode. Do you know the key shortcut to stop macros please?

Regards
manc
 
Upvote 0
Trevor G, that's great, thanks.

Couple of questions though...

How do I assign it to work automatically when workbook opens?


If the code you submitted is assigned to 'a' button, how can i get it to return back to how the screen was before using the same 'a' button, i.e. click it once it Full screens etc, click it again and it reverts back.

Suggestions appreciated
Regards
manc
 
Upvote 0
Is it a particular workbook if so you can open that workbook and in tghe VBA screen (Use alt & F11) you should see an item in the project window stating This Workbook, if you double click it the screen to the right will give you a couple of dropdowns Click the General (first on the left) and select Workbook

add the code there

If you want to run it for a book from another then add this line

workbooks.open "Add the path to the workbook and extension.xls"
Then add the code below it.

If you want to reset then use the same method as sent but change the word from True to False or False to True
 
Upvote 0
Thanks Trevor.

Using your code and workbook open() suggestion and how to apply it, i've managed to do what I wanted, including toggle between full screen and normal view. Thanks for your time.

Regards
manc
 
Upvote 0
Thank you. I have used the below codes for hide and unhide ribbon and formula bar etc., but the challenge is that the code is affecting other excels after opened my same VBA book. Even If I hit Esc button it is not getting off. Please advise. my requirement is when I open my VBA book all ribbon , Formula bar display tabs should be hide and if I hit Esc button then it should display the normal excel.
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub unhide()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
 
Upvote 0
NIDHIN B said:
Thank you. I have used the below codes for hide and unhide ribbon and formula bar etc., but the challenge is that the code is affecting other excels after opened my same VBA book. Even If I hit Esc button it is not getting off. Please advise. my requirement is when I open my VBA book all ribbon , Formula bar display tabs should be hide and if I hit Esc button then it should display the normal excel.
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub unhide()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Click to expand...

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
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Question Question
Trying to Hide the Min Max Close at top right
Replies
0
Views
418
Polino
P
N
  • Solved
VBA Excel opens Word - Split Screen to Windows Planes
Replies
5
Views
1K
NdNoviceHlp
NdNoviceHlp
P
  • Question Question
RUNTIME ERROR 91 for USERFORM CODE
Replies
1
Views
113
6StringJazzer
6StringJazzer
M
  • Solved
Amend VBA
Replies
5
Views
531
Jimmypop
Jimmypop
A
  • Question Question
Dynamically add new rows via VBA when using IFERROR TEXTJOIN and FILTER formulas from Table?
Replies
0
Views
529
AlfredDB
A

Forum statistics

Threads
1,224,609
Messages
6,179,879
Members
452,948
Latest member
Dupuhini

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top