If you are not closer to APIs then this should be a little confused what it does but just does what you want.
Open the user form module and paste this codes.
'These two lines should be placed on declaration
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Dim currState
Private Sub UserForm_Activate()
currState = Application.WindowState
Call MinimizeAll
Application.WindowState = currState
Application.WindowState = xlMinimized
UserForm1.Show vbModeless
End Sub
Private Sub MinimizeAll()
Call keybd_event(&H5B, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(&H5B, 0, &H2, 0)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.WindowState = currState
End Sub
regards