Workbook_beforeclose +msgbox
 

Hi!

I'm using this code in "ThisWorkbook":

Private Sub Workbook_beforeclose(Cancel As Boolean)
Dim UserResponse As String

UserResponse = MsgBox("Remember to HIDE and PROTECT. Do you want t
save before closing?", vbYesNoCancel)
If UserResponse = vbYes Then
Me.Save
End If
If UserResponse = vbNo Then
Me.Close
End If
If UserResponse = vbCancel Then
Cancel = True
End If

End Sub


The problem is when i press "no". Then the box pops up twice....an
after pressing "no" twice excel asks again if i want to save. Why d
this happens?

Phoeni

--
Phoeni
-----------------------------------------------------------------------
Phoenix's Profile: http://www.excelforum.com/member.php...nfo&userid=292
View this thread: http://www.excelforum.com/showthread.php?threadid=27038

Workbook_beforeclose +msgbox
 

Instead of just 'Me.Close' use:-

Me.Close SaveChanges:=False

Also you may not like to save again if already saved.

So Instead of just 'Me.Save', use:-

If Not Me.Saved Then Me.Save

Sharad

"Phoenix" wrote in message
...

Hi!

I'm using this code in "ThisWorkbook":

Private Sub Workbook_beforeclose(Cancel As Boolean)
Dim UserResponse As String

UserResponse = MsgBox("Remember to HIDE and PROTECT. Do you want to
save before closing?", vbYesNoCancel)
If UserResponse = vbYes Then
Me.Save
End If
If UserResponse = vbNo Then
Me.Close SaveChanges:=False
End If
If UserResponse = vbCancel Then
Cancel = True
End If

End Sub


The problem is when i press "no". Then the box pops up twice....and
after pressing "no" twice excel asks again if i want to save. Why do
this happens?

Phoenix


--
Phoenix
------------------------------------------------------------------------
Phoenix's Profile:
http://www.excelforum.com/member.php...fo&userid=2921
View this thread: http://www.excelforum.com/showthread...hreadid=270386