I use this to reset user's computer to original calculation setting. It
works (I think), but upon closing, it prompts you: "Do you want to save the
changes you made..." This occurs even if I just saved it. I wish to not
see this message. I am trying to tell it not to prompt me, but to no avail.
A novice user reluctant to NOT save his work will hit 'yes' (save) to this
message over and over upon closing and wonder what they are doing wrong.

Public origcalc As Integer

Sub Auto_Open()
If Application.Calculation = xlAutomatic Then
origcalc = 1
Else
origcalc = 0
End If
Application.Calculation = xlAutomatic
End Sub

Sub auto_close()
If origcalc = 1 Then
Else
Application.Calculation = xlManual
End If
Application.DisplayAlerts = False 'THIS IS WHAT DOESN'T WORK
End Sub

Thanks, Mike Allen

Mike,

Try

Sub auto_close()
If origcalc = 1 Then
Else
Application.Calculation = xlManual
End If
Thisworkbook.saved=true
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"mike allen" wrote in message
...
I use this to reset user's computer to original calculation setting. It
works (I think), but upon closing, it prompts you: "Do you want to save
the
changes you made..." This occurs even if I just saved it. I wish to not
see this message. I am trying to tell it not to prompt me, but to no
avail.
A novice user reluctant to NOT save his work will hit 'yes' (save) to this
message over and over upon closing and wonder what they are doing wrong.

Public origcalc As Integer

Sub Auto_Open()
If Application.Calculation = xlAutomatic Then
origcalc = 1
Else
origcalc = 0
End If
Application.Calculation = xlAutomatic
End Sub

Sub auto_close()
If origcalc = 1 Then
Else
Application.Calculation = xlManual
End If
Application.DisplayAlerts = False 'THIS IS WHAT DOESN'T WORK
End Sub

Thanks, Mike Allen