BeforeClose Event

Hi,

I have Excel 2003. I have disabled the builtin commandbars and created a
custom toolbar when a template opens.

I re-instate the builtin commabars in the BeforeClose event. If a user
clicks Cancel do the "Do you want to save changes......" question, the
builtin menu gets re-instated - not good. I have tried
Application.DisplayAlerts = False but that did not prevent the prompt. I
tried Application.SaveChanges = False and that worked but 2 odd things
occurred: User has to click the application close button twice to close
Excel and when you simply open Excel the formula bar isn't displayed.

How do I trap if the user clicks cancel? Code below.

Thanks
LeAnn


Dim oCB As CommandBar
On Error Resume Next

For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB

Application.DisplayFormulaBar = True

Can you program the BeforeClose event to SAVE first, then the user will Not
be prompted to save the wkbook ?

"LeAnn" <LeAnn DeleteThis @discussions.microsoft.com> wrote in message
news:BD984722-BF9C-4874-A5D2-0DE4625A52C3@microsoft.com...
> Hi,
>
> I have Excel 2003. I have disabled the builtin commandbars and created a
> custom toolbar when a template opens.
>
> I re-instate the builtin commabars in the BeforeClose event. If a user
> clicks Cancel do the "Do you want to save changes......" question, the
> builtin menu gets re-instated - not good. I have tried
> Application.DisplayAlerts = False but that did not prevent the prompt. I
> tried Application.SaveChanges = False and that worked but 2 odd things
> occurred: User has to click the application close button twice to close
> Excel and when you simply open Excel the formula bar isn't displayed.
>
> How do I trap if the user clicks cancel? Code below.
>
> Thanks
> LeAnn
>
>
> Dim oCB As CommandBar
> On Error Resume Next
>
> For Each oCB In Application.CommandBars
> oCB.Enabled = True
> Next oCB
>
> Application.DisplayFormulaBar = True
>