Workbook_BeforeClose

  • Thread starter Thread starter Alan McQuaid via OfficeKB.com
  • Start date Start date
A

Alan McQuaid via OfficeKB.com

Hello,

I am trying to use the beforeclose event on a workbook. However, it appears
to be getting bypassed everytime I close the book as I am being asked the
standard "Do you want to save the changes to...". Here is what I have written
for it.

Private Sub workbook_beforeclose(Cancel As Boolean)

Cancel = False


If Sheets("Check").Range("Protected") = "Y" Then
If bBlockEvents Then Exit Sub
ThisWorkbook.Saved = True
bBlockEvents = True

Else
If Range("Prepare") > "" And Range("Checked") > "" And Not Range
("Protected") = "Y" Then
Message = MsgBox("Is this workbook finished with for today?",
vbYesNo + vbCritical)
If Message = vbNo Then
Call DeleteEVMenu 'Sub to delete custom menu
Else
Sheets("Check").Range("Protected") = "Y"
ProtectSheets 'Sub to protect certain sheets
Call DeleteEVMenu 'Sub to delete custom menu
ThisWorkbook.Save
End If
End If
End If

End Sub

Any help would be much appreciated
 
Did you save it in the ThisWorbook code module?

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)
 
You should at least set Cancel to True.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

Alan McQ via OfficeKB.com said:
Bob said:
Did you save it in the ThisWorbook code module?

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)
Hello,
Click to expand...
[quoted text clipped - 31 lines]
Any help would be much appreciated
Click to expand...
Click to expand...
Bob,

Apologies, this is included in the ThisWorkbook code module
Click to expand...
 
Back
Top