Solved

Get focus back to Excel

Posted on 2014-11-15
7
83 Views
Last Modified: 2014-11-25
I have an Excel/vba app that is used to place orders at Overstock.  Before the order is placed, a dialog box is generated in Excel asking the user if they want to place the order or not.  You don't see the dialog box, but excel starts flashing.  It you click on Excel, the dialog box appears.  Is there someway to get the focus back to Excel?
0
Comment
Question by:rrhandle8
  • 3
  • 3
7 Comments
 
LVL 80

Expert Comment

by:byundt
Comment Utility
Please post the code with the problem, or better yet post the workbook.

Which version of Excel are you using?
0
 
LVL 68

Expert Comment

by:Qlemo
Comment Utility
It is intentional that applications cannot bring themselves in front anymore. Instead, they are flashing in taskbar. This is to make sure noone intercepts interactive input for malicious purposes.

However, you can trick that (IIRC) by making the current window minized and then restore it back again. As you seem to trigger the Dialog Box call somehow from outside of Excel, it should not be difficult to change window state first.
0
 

Author Comment

by:rrhandle8
Comment Utility
Here is the code.
Credit card information is entered into the  web page, then I want the dialog box to ask the user if they want to proceed with the order.
0
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:rrhandle8
Comment Utility
ieDoc.getElementById("CC").Click
ieDoc.getElementById("CC_number").Value = frmOrderSystem.txtCreditCard
ieDoc.getElementById("exp_month").Value = frmOrderSystem.txtExpMonth
ieDoc.getElementById("exp_year").Value = frmOrderSystem.txtExpYear

Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.READYSTATE = READYSTATE_COMPLETE: DoEvents: Loop
Func.PauseBrowser


If frmOrderSystem.chkPromptBeforePlacingOrder = True Then
    response = MsgBox("Do you want to place this order?" & vbCrLf & "ProfitLoss: " & ProfitLoss, vbYesNo)
Else

Open in new window

0
 
LVL 68

Expert Comment

by:Qlemo
Comment Utility
There is no way to reasonable do that, if the Web page is shown for confirming it is the correct order to get placed. It only makes sense to either show the msgbox or IE in front, but not both. Unless the resolution is large enough to show both side by side ;-).

If you do need the IE only for executing your login / CC stuff, why not do that invisibly?
0
 

Author Comment

by:rrhandle8
Comment Utility
Cannot do it invisibly because we need to watch what is going on until we have the bugs work out of it.
0
 
LVL 68

Accepted Solution

by:
Qlemo earned 500 total points
Comment Utility
Try if
Application.WindowState = xlMinimized
Application.WindowState = xlNormal

Open in new window

before line 12 does the job.
0

Featured Post

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
EXCEL 2010 7 39
Earnings Spreadsheet in Excel 3 37
Excel 2013 Problem 12 44
second highest value difference 11 23
A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Convert between Excel file formats (.XLS, .XLSX, .XLSM) with/without macro option David Miller (dlmille) Intro Over this past Fall, I've had the opportunity to see several similar requests and have developed a couple related solutions associate…
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now