Userform minimiert andere Fenster?

Computer: Software & Programmierung Office Software
1

Hallo
Gibts es die möglich keit, dass wenn eine Userform startet, alle anderen Fenster, die auf dem Desktop offen sind zu minimieren?

Danke

2

Hallo

Hi,
packe folgenden Code in ein Modul und rufe nach dem Starten des Userform die Sub „MinAll“ auf. „MinAllUndo“ stellt den alten Zustand wieder her.

Option Explicit

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

Private Declare Function PostMessage Lib "user32" Alias \_
 "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, \_
 ByVal wParam As Long, ByVal lParam As Long) As Long

Const WM\_COMMAND = &H111
Const MIN\_ALL = 419
Const MIN\_ALL\_UNDO = 416

Public Sub MinAll()
 Dim lHandle As Long

 lHandle = FindWindow("Shell\_TrayWnd", vbNullString)
 Call PostMessage(lHandle, WM\_COMMAND, MIN\_ALL, 0&amp:wink:
End Sub

Public Sub MinAllUndo()
 Dim lHandle As Long

 lHandle = FindWindow("Shell\_TrayWnd", vbNullString)
 Call PostMessage(lHandle, WM\_COMMAND, MIN\_ALL\_UNDO, 0&amp:wink:
End Sub

Gruß.Timo

3

Danke geht wunderbar!!!