J
JMCS
I am having problems getting this event to kick in. I need to intercept any
attempt to use the File Save menu or icon to make sure that the user's name
is captured (I do that on the Workbook Close event). I have just tried the
Help sample code (below) but cannot get that to work. Any ideas, please?
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
JMCS
attempt to use the File Save menu or icon to make sure that the user's name
is captured (I do that on the Workbook Close event). I have just tried the
Help sample code (below) but cannot get that to work. Any ideas, please?
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
JMCS