View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Patrick Molloy Patrick Molloy is offline
external usenet poster
 
Posts: 1,049
Default SaveAs Confict Resolution Help ?

you could use
Application.DisplayAlerts = False

which completely avoids the issue -- unfortunatley is doesn't stop the user
saving over files accidentally

You could add a line that has checks if the file exists --- before the file
Save As line, and then handle the result

"Bassman62" wrote in message
...
Greetings,
Using xl2007
Code:
NewWBName =
Application.GetSaveAsFilename(InitialFileName:="0-Job.xls", _
filefilter:=" Excel 2000-2003 Workbook (*.xls), *.xls,")
If NewWBName = False Then
Range("Date").Activate
Application.ScreenUpdating = True
Exit Sub
Else
NewWB_Setup 'Create a copy of "Report" and convert formulas to
values
' Save new file as 2000-2003 format from version 2007.
NewWB.SaveAs NewWBName, FileFormat:=56, CreateBackup:=False
End If

The above code works well except if the file name already exists and the
user selects 'No' or 'Cancel' from the Conflict Resolution Dialog box.
| A file named '...\0-Job.xls' already exists in this location. Do you
want to replace it?
| Yes / No / Cancel

How can I change my code to handle those selections?
Thanks.