Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbook_BeforeSave Does Not Trigger
I have a regular module with a sub that contains code, at the end of which
the user is prompted to save the file (or not); the code is below. If the user elects to save, then code that resides in ThisWorkbook under a Workbook_BeforeSave module does not fire. Enable events is on. Can someone advise what I'm doing wrong here? MsgBox ("Processing has completed; save the file now, under a different" & _ "file name. If you don't want to save it, select 'Cancel' on the next menu.") FName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If FName < False Then ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlWorkbookNormal End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbook_BeforeSave Does Not Trigger
That works on my machine... The Before Save event is triggered. Try adding a
line to enable events right before the save as to ensure your events are firing. Events can be the darnedest things... other than that place a massage box or a break point in the before save event code to ensure that it truely is not being called... MsgBox ("Processing has completed; save the file now, under a different" & _ "file name. If you don't want to save it, select 'Cancel' on the next menu.") FName = Application.GetSaveAsFilename(InitialFileName:="", _ FileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If FName < False Then Application.EnableEvents = True '*** ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlWorkbookNormal End If -- HTH... Jim Thomlinson "Paige" wrote: I have a regular module with a sub that contains code, at the end of which the user is prompted to save the file (or not); the code is below. If the user elects to save, then code that resides in ThisWorkbook under a Workbook_BeforeSave module does not fire. Enable events is on. Can someone advise what I'm doing wrong here? MsgBox ("Processing has completed; save the file now, under a different" & _ "file name. If you don't want to save it, select 'Cancel' on the next menu.") FName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If FName < False Then ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlWorkbookNormal End If |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbook_BeforeSave Does Not Trigger
Thanks, Jim. Will give this a try.
"Jim Thomlinson" wrote: That works on my machine... The Before Save event is triggered. Try adding a line to enable events right before the save as to ensure your events are firing. Events can be the darnedest things... other than that place a massage box or a break point in the before save event code to ensure that it truely is not being called... MsgBox ("Processing has completed; save the file now, under a different" & _ "file name. If you don't want to save it, select 'Cancel' on the next menu.") FName = Application.GetSaveAsFilename(InitialFileName:="", _ FileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If FName < False Then Application.EnableEvents = True '*** ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlWorkbookNormal End If -- HTH... Jim Thomlinson "Paige" wrote: I have a regular module with a sub that contains code, at the end of which the user is prompted to save the file (or not); the code is below. If the user elects to save, then code that resides in ThisWorkbook under a Workbook_BeforeSave module does not fire. Enable events is on. Can someone advise what I'm doing wrong here? MsgBox ("Processing has completed; save the file now, under a different" & _ "file name. If you don't want to save it, select 'Cancel' on the next menu.") FName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If FName < False Then ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=xlWorkbookNormal End If |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
HELP!!!! Calling a sub from Workbook_BeforeSave | Excel Discussion (Misc queries) | |||
Workbook_BeforeSave question | Excel Programming | |||
Workbook_BeforeSave() | Excel Programming | |||
Workbook_BeforeSave | Excel Programming | |||
Workbook_BeforeSave() in xla | Excel Programming |