UserForm sadece açılan dosyada görünsün

[imdatsaral]

Selam Arkadaşlar,

Benim sorunum çalıştığım dosyada UserForm kullanıyorum. Başka dosya açtığımda Userform açtığım sayfada duruyor. Büyük olduğundan sürekli dosyamı kapatmak zorunda kalıyorum. bu durum önlenebilinirmi.

 

[fedeal]

userformun kodların en üstüne bunu,

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

Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bEnable As Long) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

activate olayına,

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

ınitialize olayına,(başka kodlar varsa içerigindeki kodları ilave edin)

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H20000
With userform1
.Height = Application.Height
.Width = Application.Width
End With
End Sub

formu minimize edebilmenizi sağlayacaktır.

kaynak: kod arşiv programımız