View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
GS[_2_] GS[_2_] is offline
external usenet poster
 
Posts: 3,514
Default 'Save as' dialog opens despite Application.DisplayAlerts = False

After serious thinking Poniente wrote :
Hi,
I'm using the following code to save a workbook under a unique name in
a single directory. This code runs on several instances of excel.
Often these save commands happen at the same time.

<begin of code
RetrySaveHandler:
On Error GoTo RetrySaveHandler
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=SaveName, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
<eoc

About 5 times a day, a 'Save as' dialog box opens asking for a file
name, with random looking default filename filled out, like:
7D2E8000
and like
9AB6B000
(i.e. not anything like the SaveName I specified and even without
the .xls extention)

If I then manually set the pointer to 'SaveName', it will save without
a problem.

Unfortunately, the errorhandler doesn't catch the above error.
Is there anyone who understands what is the problem (and/or has an
idea how to solve it ;-) )?

Regards,
Poniente


Sorry I didn't read your post earlier! I'm familiar with this issue and
have found my own solution as follows:

With Application
.EnableEvents = False: .DisplayAlerts = False
End With

'save and/or close files

With Application
.EnableEvents = True: .DisplayAlerts = True
End With

Does this help?

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc