bobomi

(1) ±¾API
or
(2) ±¾µ{¦¡

(1) ±¾API
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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

Sub AlwaysOnTop(³Ì¤W¼h As Boolean)
  On Error Resume Next
  h = Excel.Application.hwnd
  If Err Then
  h = FindWindow("XLMAIN", "Microsoft Excel - " & ThisWorkbook.Name)
  End If
  On Error GoTo 0
  k = IIf(³Ì¤W¼h, -1, -2)
  Call SetWindowPos(h, k, 0, 0, 0, 0, 3)
End Sub