Son açılan userformun en önde olması

[acolkesen1]

Merhaba arkadaşlar,
Birden çok userform ile çalışırken bazan son açılan userform diğerinin arkasında kalıyor. Dolayısıyla dosya bir anlamda kilitleniyor. Userformları Userform1 ve Userform2 olarak adlandırırsak; Userform1 tam ekran iken Userform2 açıldığında zaman zaman Userform1 in altında kalıyor. (Her zaman değil)
Son açılan userformun en üstte olmasını sağlayacak bir kod veya userform özelliği var mıdır? İlgilenen arkadaşlara teşekkür ederim..

 

[mancubus]

aşağıdaki şekilde dener misiniz?


her hangi bir modülün tepesine:
(veya public kelimesini private yaparak ilgili uf'un kod modülüne)

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

önde olmasının istediğiniz uf'u açan kodun içine

Dim hWnd As Long
hWnd = FindWindow("ThunderDFrame", UserForm2.Caption)

If hWnd Then
      BringWindowToTop hWnd
End If

veya userform'un kod modülüne

Private Sub UserForm_Activate()

Dim hWnd As Long
hWnd = FindWindow("ThunderDFrame", UserForm2.Caption)

If hWnd Then
      BringWindowToTop hWnd
End If

End Sub

not: kodlar alıntıdır.