UserForm Açıkken Diğer Çalışma Kitaplarını Açabilir

[oerbas]

Tüm Form üyelerine selamlar;

Yaptığım programda Excel minimize edilmiş durumda Program çalıştırılınca masa üstüne direk UserForm düşüyor. UserFormu boyutlandırdım. Formdan çıkmadan formu küçültüp diğer Excel kitaplıklarını açmak istediğimde olmuyor. UserForm açıkken yada aşağı katlandığında diğer Excel kitaplıklarını açabilirmiyiz bu sorunu giderecek bir makro varmıdır

Yardımlarınıza teşekkür ederim.

 

[xxrt]

Sayın Raider'in Bir çalışmasına ait aşağıdaki kodu UserForma ait kodların en üstüne yapıştırın.Bu arada UserFormun Initialize özelliğinde herhangi bir kodunuz varda bu kodlarıda

Private Sub UserForm_Activate()

Kısmına taşıyın.
Kodları Aynen En Başa Yapıştırın.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
(ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Declare Function ShowWindow Lib "user32" _ 
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long 
' 
Private Sub UserForm_Activate() 
  Dim hWndForm As Long, frmStyle As Long 
  hWndForm = FindWindow(vbNullString, Me.Caption) 
  frmStyle = GetWindowLong(hWndForm, (-16)) 
  frmStyle = frmStyle Or &H80000 Or &H20000 Or &H10000 
  SetWindowLong hWndForm, (-16), frmStyle 
  ShowWindow hWndForm, 5 
  DrawMenuBar hWndForm 
End Sub

Birde UserForm Çalışırken UserFormun ShowModal özelliğini False yapmanız gerek.

 

[oerbas]

Birde UserForm Çalışırken UserFormun ShowModal özelliğini False yapmanız gerek

Hocam UserFormun ShowModal özelliğini False yapınca UserForm açıkken diğer Excel kitaplıklarını açıldı sorun giderildi. Ã?nerdiğiniz kodlar ise daha öncede sizin bana UserFormu boyutlandırmak için verdiğiniz kodlar herhalde bu yüzden kodları değiştirmedim. Daha önce gönderdiğiniz kodlar aşağıdaki gibiydi

[vb:1:4f6243df8f]
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Sub UserForm_Activate()
Dim hWndForm As Long, frmStyle As Long
hWndForm = FindWindow(vbNullString, Me.Caption)
frmStyle = GetWindowLong(hWndForm, (-16))
frmStyle = frmStyle Or &H80000 Or &H20000 Or &H10000
SetWindowLong hWndForm, (-16), frmStyle
ShowWindow hWndForm, 5
DrawMenuBar hWndForm
TextBox1.Text = Year(Date)
'Büyütme

End Sub[/vb:1:4f6243df8f]

 

[xxrt]

Yukarıdaki mesajınızı biraz düzenledim.Sanırım şimdi daha iyi oldu.Cevabınızı yoğunluğum ve yorgun olmam nedeni ile göremedim.Kusura bakmayın.O Kodlara benzer başka kodlard aolabilri.Sorununuz düzeldiğine sevindim..Kolay Gelsin.

 

[selimm]

Eline sağlık

 

[baydeniro]

Merhaba. Eski bir konu ama hem kodun paylaşımı için teşekkür ederim. Öte uandan şöyle bir kod olabilir mi ? User Formun olduğu excel dosyasının sayfaları kullanılamasın ama diğer excel excel dosyalarında çalışılabilsin.