Close workbook without alerts

[Jeff Wright]

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

 

[Guest]

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

End Sub

 

[Norman Jones]

--

 

[Norman Jones]

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
'<<=============

 

[Jeff Wright]

Norman,

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

Thanks,


Jeff