Disable Close ('X' in top Right)

[thunderfoot]

Using EXCEL 2003 and have a Sub Autpen() macro routine run when a file is opened (with Macros Enabled) which among other things has a routine that disables Copy/Paste using code :-

    Application.CommandBars("Edit").Controls("Cut").Enabled = False
    Application.CommandBars("Edit").Controls("Copy").Enabled = False
    Application.CommandBars("Edit").Controls("Paste").Enabled = False
    Application.CommandBars("Edit").Controls("Paste Special...").Enabled = False

Is there any Code I can add to the Sub Autpen() macro which will disable the 'X' in the top right corner of the Window displaying the file?

 

[Arcticwarrio]

how would you close the workbook then?

 

[thunderfoot]

Have a 'Close' routine which operates from a macro button with the code:-

    Application.CommandBars("Edit").Controls("Cut").Enabled = True
    Application.CommandBars("Edit").Controls("Copy").Enabled = True
    Application.CommandBars("Edit").Controls("Paste").Enabled = True
    Application.CommandBars("Edit").Controls("Paste Special...").Enabled = True

........... so would hope there's a bit of code to disable the 'X' in the Auto Open routine (1st post) and then a bit of code to go in the above routine to re-enable the 'X'.

 

[VoG]

Add in the ThisWorkbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

and add to your close code

Application.EnableEvents = False
ThisWorkbook.Close
Application.EnableEvents = True