Hi

I want to hide all toolbars and disable the red X upon opening of the spreadsheet, and to restore the main toolbars upon closing. That worked perfectly. (when I used the black code -see below)
I added in the red code as i wanted to disable the red X as well to ensure that users will always close the EXCEL worksheet via a Macro button
The Macro will save the spreadsheet and close the worksheet and the Private sub should restore the toolbars.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If CloseMode = 0 Then Cancel = True
    MsgBox "Please go to File > Close to close this file"    
    Application.CommandBars(1).Enabled = True
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.DisplayStatusBar = True
End Sub
Private Sub Workbook_Open()
    Application.CommandBars(1).Enabled = False
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("PivotTable").Visible = False
    Application.CommandBars("Chart").Visible = False
    Application.CommandBars("Reviewing").Visible = False
    Application.CommandBars("Forms").Visible = False
    Application.CommandBars("Stop Recording").Visible = False
    Application.CommandBars("External Data").Visible = False
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Circular Reference").Visible = False
    Application.CommandBars("Visual Basic").Visible = False
    Application.CommandBars("Web").Visible = False
    Application.CommandBars("Task Pane").Visible = False
    Application.CommandBars("Control Toolbox").Visible = False
    Application.CommandBars("Exit Design Mode").Visible = False
    Application.CommandBars("Drawing").Visible = False
    Application.CommandBars("WordArt").Visible = False
    Application.CommandBars("Picture").Visible = False
    Application.CommandBars("Shadow Settings").Visible = False
    Application.CommandBars("3-D Settings").Visible = False
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
End Sub
The problem with the red code (which I picked up in the link below) is that it fully disables to close the spreadsheet. Can anyone help to resolve this for me?
http://www.ozgrid.com/forum/showthread.php?t=57334

Thanks
Rough