Prev: Copy worksheet, trying to paste to new workbook error assistance.
Next: use formula on external data range
From: David on 6 May 2010 07:44
Hi
I'm working on an Excel file that will always be opened as Read Only by users.
To save confusion I would rather the user is not prompted to save the file
on exit.
I've tried application.displayAlerts = False in the Workbook BeroreClose
event code
but no joy so far.
Is it posible to achieve this?
Thanks
From: Jacob Skaria on 6 May 2010 07:48
Try

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Close False
End Sub


--
Jacob (MVP - Excel)


"David" wrote:

> Hi
> I'm working on an Excel file that will always be opened as Read Only by users.
> To save confusion I would rather the user is not prompted to save the file
> on exit.
> I've tried application.displayAlerts = False in the Workbook BeroreClose
> event code
> but no joy so far.
> Is it posible to achieve this?
> Thanks
From: David on 6 May 2010 08:04
Thanks Jacob (I made sure to click on yes)

Worked fine

Is there any way to close the application "shell" along with the file
as is usual with only a single file open?

"Jacob Skaria" wrote:

> Try
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Me.Close False
> End Sub
>
>
> --
> Jacob (MVP - Excel)
>
>
> "David" wrote:
>
> > Hi
> > I'm working on an Excel file that will always be opened as Read Only by users.
> > To save confusion I would rather the user is not prompted to save the file
> > on exit.
> > I've tried application.displayAlerts = False in the Workbook BeroreClose
> > event code
> > but no joy so far.
> > Is it posible to achieve this?
> > Thanks
From: Jacob Skaria on 6 May 2010 08:16
Ofcourse YES; Try the below. Be careful this will quit the app; even if you
have other workbooks open..


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
End Sub

--
Jacob (MVP - Excel)


"David" wrote:

> Thanks Jacob (I made sure to click on yes)
>
> Worked fine
>
> Is there any way to close the application "shell" along with the file
> as is usual with only a single file open?
>
> "Jacob Skaria" wrote:
>
> > Try
> >
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > Me.Close False
> > End Sub
> >
> >
> > --
> > Jacob (MVP - Excel)
> >
> >
> > "David" wrote:
> >
> > > Hi
> > > I'm working on an Excel file that will always be opened as Read Only by users.
> > > To save confusion I would rather the user is not prompted to save the file
> > > on exit.
> > > I've tried application.displayAlerts = False in the Workbook BeroreClose
> > > event code
> > > but no joy so far.
> > > Is it posible to achieve this?
> > > Thanks
 | 
Pages: 1
Prev: Copy worksheet, trying to paste to new workbook error assistance.
Next: use formula on external data range