How to hide scroll bars & menus of excel

[Melnik]

Hello everybody!

How to hide scroll bars & menus of excel? I have a workbook with some algorithm and want to "make disappear" all the menus and scroll bars of excel. How to do?

Regards
Melnik

 

[Michael M]

In Excel 2003
Tools / Options / View and Uncheck the the scroll bars

To "hide" the menus View / full screen

 

[Melnik]

Thanks for your help, but I have already got a solution:
(I meant "hide" all the menus & bars in excel 2007)

Option Explicit
Sub Start()
ClearAll
FormInterface.Show
Unload FormInterface
End Sub
Sub ClearAll()
Application.ScreenUpdating = False
ClearWorkSheet
ClearActiveWindow
ClearApplicationControls
Application.ScreenUpdating = True
End Sub
Sub ResetAll()
Application.ScreenUpdating = False
ResetWorkSheet
ResetActiveWindow
ResetApplicationControls
Application.ScreenUpdating = True
End Sub
Sub ClearWorkSheet()
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.WindowState = xlMaximized
' xlMaximized or xlNormal
End With

'If you want a background image behind your UserForm, put it in here. This one is just an example. Otherwise you will have a blank white background.

End Sub
Sub ResetWorkSheet()
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.WindowState = xlMaximized
' xlMaximized or xlNormal
End With

ActiveSheet.SetBackgroundPicture ("")
End Sub
Sub ClearActiveWindow()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With

' Application.DisplayScrollBars = False
' Turns scrollbars off for all workbooks
End Sub
Sub ResetActiveWindow()
' Resets the scrollbars for all workbooks
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub
Sub ClearApplicationControls()
Dim OneBar As CommandBar
' First the normal screen
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With

' Hide all Command Bars
On Error Resume Next
For Each OneBar In CommandBars
OneBar.Visible = False
Next
On Error GoTo 0

' Now viewing full screen
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With

' Hide all Command Bars
On Error Resume Next
For Each OneBar In CommandBars
OneBar.Visible = False
Next
On Error GoTo 0

' Disable the Menu Bar only required once
CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
Sub ResetApplicationControls()
' First viewing full screen
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With

' Turn on main CommandBars
CommandBars("Standard").Visible = True
CommandBars("Formatting").Visible = True

' Now the normal screen
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With

' Turn on main CommandBars
CommandBars("Standard").Visible = True
CommandBars("Formatting").Visible = True

' Re-enable the Menu Bar
CommandBars("Worksheet Menu Bar").Enabled = True
End Sub