UserForm1.Show vbModeless

Option Explicit

Public Sub ShowUserFormModeless()
  #If VBA6 Then
    frmUserFormModeless.Show vbModeless
  #Else
    frmUserFormModeless.Show
  #End If
End Sub

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
      "FindWindowA" (ByVal lpClassName As String, ByVal _
      lpWindowName As String) As Long

Private Declare Function EnableWindow Lib "user32" (ByVal _
      hwnd As Long, ByVal fEnable As Long) As Long

Private Sub UserForm_Activate()
  Dim hwndForm As Long

  If Left$(Application.Version, 1) = 8 Then
     hwndForm = FindWindow("XLMAIN", vbNullString)
     If hwndForm <> 0 Then
        EnableWindow hwndForm, True

        SendKeys "{Esc}"
        Application.Dialogs(xlDialogShowToolbar).Show
     End If
  End If
End Sub