Try this bit of logic
'Save' doesn't close the WB, but just saved
'Close' shows the Save dialog allowing you to save, but if you Cancel that, it just exits
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
bCloseCalled = True
Load UserForm1
UserForm1.Caption = "Workbook_BeforeClose"
UserForm1.cbLogExit.Caption = "Log Comments, Save, and Close"
UserForm1.Show
Cancel = bCancel
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not bCloseCalled Then
Load UserForm1
UserForm1.Caption = "Workbook_BeforeSave"
UserForm1.cbLogExit.Caption = "Log Comments and Save"
UserForm1.Show
End If
Cancel = bCancel
End Sub