Close workbook without alerts

's Computer Specifications

Hi,

I don't want users of my workbook to have the option of saving changes when
closing. I tried:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Application.DisplayAlerts = False
End Sub

.. . . but this doesn't work. How can I code my workbook to close with no
prompts to the user??

Thanks!!

Jeff

's Computer Specifications

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

End Sub

"Jeff Wright" wrote:

> Hi,
>
> I don't want users of my workbook to have the option of saving changes when
> closing. I tried:
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
> Application.DisplayAlerts = False
> End Sub
>
> .. . . but this doesn't work. How can I code my workbook to close with no
> prompts to the user??
>
> Thanks!!
>
> Jeff
>
>
>

's Computer Specifications

--
---
Regards,
Norman
Microsoft Excel MVP

"Jeff Wright" <(E-Mail Removed)> wrote in message
news:6noWh.192525$(E-Mail Removed)...
> Hi,
>
> I don't want users of my workbook to have the option of saving changes
> when closing. I tried:
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
> Application.DisplayAlerts = False
> End Sub
>
> . . . but this doesn't work. How can I code my workbook to close with no
> prompts to the user??
>
> Thanks!!
>
> Jeff
>

's Computer Specifications

Hi Jeff,

Try:

'=============>>
Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = True
MsgBox Prompt:="This workbook cannot be saved"
End Sub

'--------------->>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub
'<<=============

---
Regards,
Norman

"Jeff Wright" <(E-Mail Removed)> wrote in message
news:6noWh.192525$(E-Mail Removed)...
> Hi,
>
> I don't want users of my workbook to have the option of saving changes
> when closing. I tried:
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
> Application.DisplayAlerts = False
> End Sub
>
> . . . but this doesn't work. How can I code my workbook to close with no
> prompts to the user??
>
> Thanks!!
>
> Jeff
>

's Computer Specifications

Norman,

This is great, and does exactly what I want it to do!

Thanks,

Jeff

"Norman Jones" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi Jeff,
>
> Try:
>
> '=============>>
> Private Sub Workbook_BeforeSave( _
> ByVal SaveAsUI As Boolean, _
> Cancel As Boolean)
> Cancel = True
> MsgBox Prompt:="This workbook cannot be saved"
> End Sub
>
> '--------------->>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Me.Saved = True
> End Sub
> '<<=============
>
>
> ---
> Regards,
> Norman
>
>
>
> "Jeff Wright" <(E-Mail Removed)> wrote in message
> news:6noWh.192525$(E-Mail Removed)...
>> Hi,
>>
>> I don't want users of my workbook to have the option of saving changes
>> when closing. I tried:
>>
>> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
>> Boolean)
>> Application.DisplayAlerts = False
>> End Sub
>>
>> . . . but this doesn't work. How can I code my workbook to close with no
>> prompts to the user??
>>
>> Thanks!!
>>
>> Jeff
>>
>
>

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
error in running workbook.close() func. after close excel from win	Kayıhan	Microsoft C# .NET	0	29th Mar 2009 12:49 AM
SSL Close Notify Alerts	Ashok Kumar C	Windows XP Internet Explorer	0	25th Jan 2008 07:43 AM
alerts for changes in workbook	=?Utf-8?B?b2xnYQ==?=	Microsoft Excel Misc	0	9th Oct 2006 09:07 PM
Re: How can I close Outlook and still get alerts?	Brian Tillman	Microsoft Outlook	1	1st Sep 2004 03:23 AM
Excel 2000 Workbook close button hides instead of close	Steven Robinson	Microsoft Excel Misc	3	13th Aug 2003 11:28 PM