Как сделать UserForm не по верх окон

[and150382]

Здравствуйте!
Подскажите как сделать чтобы форма автоматически становилась не поверх всех окон при нажатии любого листа эксель в трее или при открытии другого листа. Сейчас пока форма открыта я немогу открыть никакой лист экселя.

И еще такая проблема. Подскажите как добавить кнопку свернуть. На форуме нашёл примеры , но не могу их реализовать.

[EducatedFool]

чтобы форма не мешала доступу к листам Excel, надо установить её свойство ShowModal в FALSE
(меняется в свойствах формы, или при помощи параметра про запуске методом Show)



по сворачиванию формы - без WinAPI не обойтись:

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Const GWL_STYLE As Long = (-16)
Const WS_SYSMENU As Long = &H80000
Const WS_MINIMIZEBOX As Long = &H20000
Const WS_MAXIMIZEBOX As Long = &H10000
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWNORMAL As Long = 1
 
Private Sub UserForm_Activate()
'добавляет на форму значки минимизировать форму и значок развернуть окно на полный экран
Dim lngFrmHndl As Long
Dim lngStyle As Long
    lngFrmHndl = FindWindow(vbNullString, Me.Caption)
    lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE) Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    SetWindowLong lngFrmHndl, GWL_STYLE, (lngStyle)
    DrawMenuBar lngFrmHndl
End Sub
 
Private Sub CommandButton1_Click()
'минимизируем окно по нажанию кнопки
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, Me.Caption)
    Call ShowWindow(hwnd, SW_SHOWMINIMIZED)
End Sub

Не забывайте - чтобы сворачивание работало во всех версиях Excel,
необходимо писать код в 2 вариантах: http://excelvba.ru/articles/WinAPI

[and150382]

Я пробовал ставить ShowModal в FALSE, но форма при нажатии на любой лист экселя все равно остается поверх окон и закрывает лист.

[and150382]

Спасибо сворачивание работает.
Но всё же кто-нибудь может знает как сделать лист экселя поверх формы?

[and150382]

Кто-нибудь дайте идею, как это можно сделать

[Скрипт]

and150382, я так понял, что встроенными VBA-средствами нельзя решить вашу задачу. Нужно использовать API-функции, что вам предложено в сообщении #2.


Примечание

Когда нет VBA-средств для решения вашей задачи, то нужно искать API-функции.

[EducatedFool]

Но всё же кто-нибудь может знает как сделать лист экселя поверх формы?

А зачем нужна форма ПОД листом Excel?
Её же видно не будет...

Просто скрывайте форму (Userform1.Hide) при активации других листов,
а при отображении нужного листа - снова отображайте (Userform1.Show)
Это же всего 1-2 строки кода. Чем такой вариант не устраивает?

[and150382]

В трее много открытый разных книг экселя.Форма работает с одной только книгой. Когда я нажимаю на какую нибудь книгу в трее чтобы занести туда данные, она открывается под формой. Чтобы мне занести данные приходится закрывать форму, т.к. она мешает.

[Скрипт]

and150382: В трее

вы имеете ввиду Панель задач Windows?

[and150382]

Да. Панель задач Windows