VBA Keep menus hidden after minimise/restore

[Mr__P]

Hi all,

I have some code that hides menus etc. amongst other things but when I minimise then restore, the menus are back.

code:

Private Sub workbook_open()

ActiveWindow.WindowState = xlMaximized
Sheets("UserView").Visible = True
Worksheets("UserView").Activate
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
Application.DisplayStatusBar = False
Range("e55").Activate
ActiveWindow.DisplayHeadings = False
Ok2Close = False
Application.OnKey "{esc}", "qazx"
Worksheets("Sheet1").Visible = True


End Sub

Any help appreciated.

Thanks

Stuart