<div>
Set this line to false <br />
<br />
Application.DisplayAlerts = True
</div>


<div>
Hi Professorjimjam,<br />
<br />
Thanks for the reply. That didn't work. I need someway to not send that keystroke unless a dialog box is open or cancel the keystroke before it gets to the next dialog box. <br />
<br />
Thanks
</div>


<div>
Can you try this<br />
<br />
<br />
indows(&quot;MyFile.xlsx&quot;).Acti<wbr />vate<br />
Application.ScreenUpdating<wbr /> = False<br />
Application.DisplayAlerts = False<br />
Application.SendKeys (&quot;~&quot;)<br />
MsgBox (&quot;Report Complete&quot;)<br />
ActiveWorkbook.Close savechanges:=True<br />
' this works fine unless<br />
Application.ScreenUpdating<wbr /> = True<br />
Application.DisplayAlerts = True<br />
Application.DisplayAlerts = True
</div>


<div>
Hi Professorjimjam,<br />
<br />
Thanks for your reply. Didn't work. It just clicks through the &quot;report complete&quot; dialog box and if the other one opens, it is displayed with a cancel button.
</div>


<div>
I don't have your full code , why would you need to use the application send tilde that is used to press enter . Can you remove that line and try I mean the application send key
</div>


<div>
Hi ProfessorJimJam,<br />
<br />
Let me explain. I am saving a file with changes to a network drive. Sometimes this &quot;hangs up&quot; and I get the dialog box. When that happens, I just want to automatically have the code click the default button (which is &quot;cancel&quot;). I don't want to send the tilde unless the dialog box is displayed.<br />
<br />
If I remove that line and the &quot;save&quot; hangs up, I end up with a dialog box that says &quot;&quot;uploading file to server....&quot;.
</div>


<div>
Also, if I do not remove the line and it doesn't hang up, the keystroke will click through the next dialog box which I don't want to have happen.
</div>


<div>
Can try with putting this code on the &quot;Thisworkbook&quot;<br />
<br />
Private Sub Workbook_BeforeClose(Cance<wbr />l As Boolean)<br />
Me.Saved<br />
End sub
</div>


<div>
Another way to do this might be to only give the ActiveWorkbook.Close savechanges:=True 1 second to execute. If it takes longer that means the dialog box is open and the keystroke needs to be sent. if it finishes in under 1 sec, no keystroke is sent. <br />
<br />
Maybe &nbsp;do it with a time reference? Set a variable that is now and if the next line takes longer than Now + 1 second, send the keystroke? No idea if that is feasible.<br />
<br />
Grasping at straws here :-)
</div>


<div>
is it possible to upload a dummy file with the complete code. so that i look where the problem is?<br />
<br />
i feel like i did not understand the question/problem. &nbsp;can you elabore and if possible upload the screenshot?<br />
<br />
from what i see that you are trying to save multiple workbooks and if one of them get stuck then you cancel and move to another correct?<br />
<br />
if that is the case, instead of activating workbook and saving it, you could use something simpler like this<br />
<br />

<pre><code class="code-1 nolinks" id="code-20-41402019-1"><span>Sub SaveAllwbks()</span>
<span>    Dim Wkb As Workbook</span>
<span>    For Each Wkb In Workbooks</span>
<span>        If Not Wkb.ReadOnly And Windows(Wkb.Name).Visible Then</span>
<span>            Wkb.Save</span>
<span>        End If</span>
<span>    Next</span>
<span>End Sub</span>
</code></pre>
</div>


<div>
Hi Professorjimjam,<br />
<br />
I am opening just one file on a server, making an entry, then saving it with changes.<br />
<br />
Sometimes that works with no issues. Sometimes it does not and a dialog box appears saying the file is uploading to the server. When that occurs, I want to autoclick the &quot;Cancel&quot; button.<br />
<br />
Thanks,
</div>


<div>
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
</div>


<div>
My apologies. Nothing worked.
</div>


<div>
<div class="content wysiwyg-content">
I am opening a file from a network drive, entering some data, then saving it with changes.<br />
<br />
Randomly, the network will hang and a &quot;uploading file to server....&quot; dialog box will appear with a &quot;cancel&quot; button. What I want is if that box appears, autoclick the cancel button. The following code works, however, if that dialog box does not appear, sending the keystroke causes the next dialog box to be clicked through. I'd like to find a way to detect if the dialog box is there and only send the keystroke if it is.<br />
<br />
Windows(&quot;MyFile.xlsx&quot;).Act<wbr />ivate<br />
Application.ScreenUpdating<wbr /> = False<br />
Application.DisplayAlerts = False<br />
ActiveWorkbook.Close savechanges:=True<br />
Application.SendKeys (&quot;~&quot;) ' this works fine unless the dialog box doesn't appear, then it clicks through the next dialog box.<br />
Application.ScreenUpdating<wbr /> = False<br />
Application.DisplayAlerts = False<br />
Application.DisplayAlerts = True<br />
MsgBox (&quot;Report Complete&quot;)
</div>
</div>


I am opening a file from a network drive, entering some data, then saving it with changes.

Randomly, the network will hang and a "uploading file to server...." dialog box will appear with a "cancel" button. What I want is if that box appears, autoclick the cancel button. The following code works, however, if that dialog box does not appear, sending the keystroke causes the next dialog box to be clicked through. I'd like to find a way to detect if the dialog box is there and only send the keystroke if it is.

Windows("MyFile.xlsx").Activate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=True
Application.SendKeys ("~") ' this works fine unless the dialog box doesn't appear, then it clicks through the next dialog box.
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayAlerts = True
MsgBox ("Report Complete")

Kill Excel Dialog Box (if it exists)

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.