Menampilkan Jendela MS. Excel Agar Selalu Diatas (Always On Top Window)


Saat bekerja menggunakan MS. Excel terkadang kita membuka jendela lain misalnya sambil membuka twitter, membuka youtube, menyetel WinAmp, dll. Namun kita menginginkan agar MS. Excel selalu tampak paling atas pada layar. Berikut trik yang bisa diaplikasikan yaitu dengan menggunakan sedikit script Visual Basic pada Excel dan kode ini bekerja pada kedua jenis office 32-bit dan 64-bit. Let’s start!

  1. Tekan Alt + F11 untuk membuka Microsoft Visual Basic for Applications window.
  2.  Pilih Insert > Module, dan paste kode dibawah ini pada Module Window.
    '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. Tekan F5, kemudian akan muncul dialog box macro, pilih opsi SetOnTopXL dan klik tombol Run.
    xl
  4. Selanjutnya jendela Excel anda akan berada diatas semua aplikasi.

Note: Jika anda ingin kembali ke jendel Excel yang normal, , cukup dengan tekan F5 untuk membuka dialog Macro, pilih SetXNormal dan klik Run.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s