Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to keep excel window always on top?

Have you ever wished that keep your Excel windows always on top and don’t be covered by other windows? Unfortunately, Excel doesn’t provide a feature for solving this task. But, here, I can give you a VBA code to deal with this job.

Keep Excel window always on top with VBA code


arrow blue right bubble Keep Excel window always on top with VBA code


The following VBA code can help you to keep the Excel window always on top, the code is applied to both office 32-bit and office 64-bit.

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Keep Excel window always on top

'Update 20140909
#If Win64 Then
    Public Declare PtrSafe Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As LongPtr, _
            ByVal hwndInsertAfter As LongPtr, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#Else
    Public Declare Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As Long, _
            ByVal hwndInsertAfter As Long, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#End If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
    Dim xStype As Long
    #If Win64 Then
        Dim xHwnd As LongPtr
    #Else
        Dim xHwnd As Long
    #End If
    If OnTop Then
        xStype = HWND_TOPMOST
    Else
        xStype = HWND_NOTOPMOST
    End If
    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
    ShowXLOnTop True
End Sub
Sub SetXLNormal()
    ShowXLOnTop False
End Sub

3. Then press F5 key to run this code, and a Macros dialog box will appear, select SetXLOnTop option, and click Run button.

doc-keep-excel-on-top-1

4. And then your Excel window will be always on top of other applications.

Note: If you want to return the Excel window to normal, just press F5 key to open the Macros dialog, choose SetXNormal and click Run.


Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Freediv · 1 years ago
    Hello

    It seems that xHwnd defined to store Application.hWnd before calling SetWindowPos as below:

    xHwnd = Application.hWnd
    Call SetWindowPos(xHwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

    Thanks
  • To post as a guest, your comment is unpublished.
    Prof. LI · 1 years ago
    Absolute genius. Exactly what I needed. Thanks!!!
  • To post as a guest, your comment is unpublished.
    David Conger-Eldeen · 1 years ago
    Thanks so much for this! I needed to keep my automated system stats sheet up at all times while I did other things based on what it was showing me. Very helpfull! :D
  • To post as a guest, your comment is unpublished.
    Kels · 2 years ago
    Thanks .. God Bless..!
  • To post as a guest, your comment is unpublished.
    Sam · 3 years ago
    Thanks for this. Very helpful when transposing data from multiple systems onto a spread sheet. Appreciate the code!
  • To post as a guest, your comment is unpublished.
    Clark · 3 years ago
    Thanks for the help!!! I had to use this as a workaround because you cant have two workpages open at the same time. Appreciate you sharing your code :)
  • To post as a guest, your comment is unpublished.
    Eric H · 5 years ago
    Love this!! Great code. Thanks! I'm a beginning programmer, I just barely know what it does.

    Where would I change in the code if I wanted the window to jump to a certain size, hide the ribbon, and/or jump to a certain sheet or cell range?
  • To post as a guest, your comment is unpublished.
    JennyRae · 5 years ago
    Thanks for providing this code! So helpful. I've been using Judy ten key for this feature but now I can use excel. Awesome, thank you!!