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

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

--
---
Regards,
Norman
Microsoft Excel MVP



"Jeff Wright" wrote in message
...
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

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" wrote in message
...
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

Norman,

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

Thanks,


Jeff


"Norman Jones" wrote in message
...
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" wrote in message
...
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