Office: UserForm im Vordergrund halten wenn application visible=false

Hallo,

Ich habe für meine Kollegen eine kleine Anwendung gebaut, in der über ein Formular Daten eingeben und gespeichert werden können.

Wenn die UF initialisiert wird, wird dabei Excell mit: "Application.visible = false" ausgeblendet.

Beim schließen der UF wird, wenn noch andere Arbeitsmappen geöffnet sind, nur meine Arbeitsmappe geschlossen und die visible-Eigenschaft wieder auf "true" gesetzt, um die geöffneten anderen Mappen anzuzeigen.
Ansonsten wird mit dem Schließen der UF auch Exzell beendet.

Funktioniert soweit alles ganz gut.

Problem: Wenn andere Anwendungen im Vollbildmodus geöffnet sind kann es passieren, dass meine UF bei Klick auf eine andere Anwendung hinter dieser verschwindet und so weder bearbeitet noch beendet werden kann (ausser über Taskmanger mit Beenden des Excell-Exe-Prozess).

Wer hat eine gute Lösung?

Gruß, Christoph

:)

 

Moin, Christoph,

per API nach dem Excel-Fenster suchen und dies in den Vordergrund bringen (VB 5/6-Tipp 0214: Fenster in den Vordergrund bringen).

 

Danke für den Tip!

Wenn ich den Hinweis richtig verstehe, ist das eine Notoperation per extra Formular, um das verlorene Fenster zu finden und in den Vordergrund zu holen.

Ich bräuchte aber eine Lösung dafür, dass das Formular in jedem Fall bis zum Beenden im Vordergrund bleibt und erst gar nicht verschwinden kann. Ich kann den Anwendern ja nicht zumuten in Panik zu geraten, wenn das Formular verschwindet.

Für weitere Hilfe wäre ich sehr dankbar.

Gruß, Christoph

 

Hallo,

so:

Option Explicit

Private Declare Function SetWindowPos Lib "user32.dll" ( _
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
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const GC_CLASSNAMEUSERFORM = "ThunderDFrame"

Private Sub UserForm_Activate()
Call SetWindowPos(FindWindow(GC_CLASSNAMEUSERFORM, Caption), _
HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

 

Ja, genau! Funktioniert klasse. Vielen Dank für den Code. Ich werde mich damit noch beschäftigen müssen, bis ich ihn auch verstanden habe.

Gruß, Christoph

 

Hallo ... auch ich versuchte den Code anzuwenden ... dieser funktioniert aber offenbar nur bei einer 32 bit Version ... wie kann dieser umgebaut werden, dass er auch bei einem 64 bit Rechner verwendet werden kann?

Danke und lieben Gruß, Elmar

 

Hallo,

ich nehme an, der VBA-Code müsste wie folgt modifiziert werden:

Code:

Option Explicit

#If VBA7 Then
   Private Declare PtrSafe Function SetWindowPos Lib "user32.dll" ( _
        ByVal hwnd As LongPtr, _
        ByVal hWndInsertAfter As LongPtr, _
        ByVal x As Long, _
        ByVal y As Long, _
        ByVal cx As Long, _
        ByVal cy As Long, _
        ByVal wFlags As Long) As Long
      
   Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
#Else
   Private Declare PtrSafe Function SetWindowPos Lib "user32.dll" ( _
        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
      
   Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
#End If

Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const GC_CLASSNAMEUSERFORM = "ThunderDFrame"

Public Sub UserForm_Activate()
    Call SetWindowPos(FindWindow(GC_CLASSNAMEUSERFORM, Caption), _
        HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

Folgende Anweisungen
#If VBA7 then
....
#Else
....
#End If
sind Anweisungen für eine bedingte Kompilation: Wenn die Konstante VBA7 wahr (ab Office2010, vorher war VBA6) ist, wird nur der erste Abschnitt bis zum #Else kompiliert und der Rest zwischen #Else und #End If als Kommentar übergangen; ist jedoch VBA6 wahr (also vor Office2010), ist es genau umgekehrt.

Im VBA7-Abschnitt kommt jetzt 2x das Schlüsselwort "PtrSafe" vor und 3x der Datentyp "LongPtr" anstelle von "Long".
Dabei bedeutet "LongPtr", dass unter einem 64bit-Windows, ein 64bit-Zeiger eingesetzt wird vom VBA-Compiler, unter einem 32bit-Windows jedoch wie seit eh und je ein 32bit-Zeiger. Betroffen davon sind nur die Zeiger, nicht jedoch sonstige Long-Variablen - diese bleiben bei ihren 32bit.

Den obigen VBA-Code musst du in das Codemodul der Userform kopieren. Wie weit er dann das gewünschte Ergebnis liefert, wenn das Activate-Ereignis der UserForm ausgelöst wird, kann ich nicht beurteilen - ich habe ihn nur flüchtig überprüft, ob er nicht abstürzt.

All diese Details kannst du im folgenden Link nachlesen:
Windows API-Deklarationen in VBA für 64-bit - Codekabinett

 

Hallo Anton

und herzlichen Dank für deine Mühe ... dein Code hat funktioniert, allerdings das gewünschte Ergebnis ist ausgeblieben, aber vielleicht habe ich das ohnehin mißverstanden und im falschen Forumsbeitrag deponiert.

Was ich erreichen wollte ist, dass beim Start lediglich die UserForm aufgerufen wird, Excel selbst dabei aber unsichtbar bleibt. Ich habe es schon versucht, aber mit dem Effekt, dass die UserForm wohl ohne Excel startet, aber wenn bereits andere Fenster offen sind, befindet sich das User_Form_Fenster im Hintergrund und es muss erst danach gesucht werden.

Ich habe dies bisher so gelöst:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.WindowState = xlMinimized
Application.Visible = False
Call UserForm ...

Ich bin totaler Anfänger im VBA-Bereich. Sicher gibt es für meine Lösung elegantere Methoden. Wäre für weitere Ideen dankbar.

Liebe Grüße, Elmar

 

Hallo ... nun bin ich auf diesen Code gestoßen ... mit dem konnte ich mein Problem lösen: