I've put this in my 'This Workbook' space. But it doesn't seem to be
working. Any ideas?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Disables 'Do you want to save changes?' Alert Before Close

Application.DisplayAlerts = False

End Sub

Hi

What are you trying to do ?

If you want to close the workbook without saving the workbook and no
alerts, then use the below in your "Workbook_BeforeClose" event (You
don't have to turn off the alert):

Thisworkbook.Saved=True.

Hopes this heps.

---
Per


On 6 Maj, 20:52, yourenotathome...@googlemail.com wrote:
> I've put this in my 'This Workbook' space. *But it doesn't seem to be
> working. *Any ideas?
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
>
> 'Disables 'Do you want to save changes?' Alert Before Close
>
> * * Application.DisplayAlerts = False
>
> End Sub

On May 6, 8:00*pm, Per Jessen <perjesse...@hotmail.com> wrote:
> Hi
>
> What are you trying to do ?
>
> If you want to close the workbook without saving the workbook and no
> alerts, then use the below in your "Workbook_BeforeClose" event (You
> don't have to turn off the alert):
>
> Thisworkbook.Saved=True.
>
> Hopes this heps.
>
> ---
> Per
>
> On 6 Maj, 20:52, yourenotathome...@googlemail.com wrote:
>
>
>
> > I've put this in my 'This Workbook' space. *But it doesn't seem to be
> > working. *Any ideas?
>
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
>
> > 'Disables 'Do you want to save changes?' Alert Before Close
>
> > * * Application.DisplayAlerts = False
>
> > End Sub- Hide quoted text -
>
> - Show quoted text -

Thanks. It worked. Any ideas why my first try didn't work?

If you want to save the workbook then put the following code:
ThisWorkbook.Save

If you don't want to save then put the following:
ThisWorkbook.Saved = True
--
A. Ch. Eirinberg


"(E-Mail Removed)" wrote:

> I've put this in my 'This Workbook' space. But it doesn't seem to be
> working. Any ideas?
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
>
> 'Disables 'Do you want to save changes?' Alert Before Close
>
> Application.DisplayAlerts = False
>
> End Sub
>

Hi

Excel will always prompt the user to save an unsaved file before
closing it.

Another solution to close without saving:

ThisWorkbook.Close SaveChanges:=False

Regards,
Per

>
> Thanks. *It worked. *Any ideas why my first try didn't work?-

On May 6, 8:37*pm, Per Jessen <perjesse...@hotmail.com> wrote:
> Hi
>
> Excel will always prompt the user to save an unsaved file before
> closing it.
>
> Another solution to close without saving:
>
> ThisWorkbook.Close SaveChanges:=False
>
> Regards,
> Per
>
>
>
>
>
> > Thanks. *It worked. *Any ideas why my first try didn't work?-- Hidequoted text -
>
> - Show quoted text -

Thanks, All.