Test if Application has focus

Hi Guys,

I'm looking to gain a better understanding of user usage and behavior in my excel/SQL application.

One aspect of this that I am interested in is the session time of the user - in particular, I wish to use a timer to count the amount of time the application is open, AND, has focus.

That is - when the excel window is maximized and is not behind windows of other applications.

I have the following timer code, but I need your help with testing for the conditions outlined above.

Please Login or Register  to view this content.

Your help on this is greatly appreciated,

Regards
Jordan

Hello Jordan,

This is a unique and interesting idea. To do this requires using the Windows API.

Copy the macro code below into a separate VBA Module in your Workbook. You call then call it your code when needed.

The macro compares the application window handle to the active window handle. If they match then Excel has the focus and the macro returns TRUE.

Please Login or Register  to view this content.

Here is an example of calling the macro in your code...

Please Login or Register  to view this content.

Hello Jordan,

This is a unique and interesting idea. To do this requires using the Windows API.

Copy the macro code below into a separate VBA Module in your Workbook. You call then call it your code when needed.

The macro compares the application window handle to the active window handle. If they match then Excel has the focus and the macro returns TRUE.

Please Login or Register  to view this content.

Here is an example of calling the macro in your code...

Please Login or Register  to view this content.

Hello Jordan,

You can use this macro as is on 64 bit machines that are running a 32 bit versions of Office. My machine is 64 bit running Windows 7 with a 32 bit version of Office 14.0.

If the macro is to run under a 64 bit version of Office then you will need to use this code.

NOTE: You can also run this code on 64 bit machines that are running a 32 bit version of Office with no changes. However, it will fail if run on a 32 bit machine running 32 bit Office.

Macro Code for 64 bit Office

Please Login or Register  to view this content.