Trying to Hide the Min Max Close at top right

[Polino]

These are the 2 macro that I'm Using, it's all perfect other than the Minimize - Maximize and close

Sub HideAll()
'
' Excel VBA Tutorial - Microsoft Excel Tutorials, Help, Forum, and more - TeachExcel.com

' Hide the Horizontal Scroll Bar
ActiveWindow.DisplayHorizontalScrollBar = False

' Hide the Vertical Scroll Bar
ActiveWindow.DisplayVerticalScrollBar = False

' Hide the Row/Column Headings
ActiveWindow.DisplayHeadings = False

' Hide the Worksheet Tabs
ActiveWindow.DisplayWorkbookTabs = False

' Hide the Status Bar (bottom of the window)
Application.DisplayStatusBar = False

' Hide the Formula Bar
Application.DisplayFormulaBar = False

' Hide the Ribbon Menu and Quick Access Toolbar
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"

' Display Full Screen
'Application.DisplayFullScreen = True
' Size all screen

Application.WindowState = xlNormal
Application.Top = 80
Application.Left = 400
Application.Width = 375
Application.Height = 500

Application.ThisWorkbook.Protect Windows:=True

End Sub



Sub ShowAll()
' ShowAll Macro
' Excel VBA Tutorial - Microsoft Excel Tutorials, Help, Forum, and more - TeachExcel.com
'
' Just reverse the options in the previous macro -> False becomes True
' and True becomes False.

' Exit Full Screen
' - If this was used to show full screen after other display settings
' were changed, then put it before those settings are changed back.
' Full-screen mode and normal mode maintain separate settings for
' these.
'Application.DisplayFullScreen = False

' Show the Horizontal Scroll Bar
ActiveWindow.DisplayHorizontalScrollBar = True

' Show the Vertical Scroll Bar
ActiveWindow.DisplayVerticalScrollBar = True

' Show the Row/Column Headings
ActiveWindow.DisplayHeadings = True

' Show the Worksheet Tabs
ActiveWindow.DisplayWorkbookTabs = True

' Show the Status Bar (bottom of the window)
Application.DisplayStatusBar = True

' Show the Formula Bar
Application.DisplayFormulaBar = True

' Show the Ribbon Menu and Quick Access Toolbar
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"

Application.WindowState = xlNormal
Application.Top = 20
Application.Left = 200
Application.Width = 975
Application.Height = 700
End Sub