UserForm Açılış Sorun

[mekist]

Merhaba

Aşağıdaki kod ile Excel' i gizleyip UserForm açılıyor, Yanlız gizlerken tüm açık Excel' leri gizliyor
Sadece ilgili Excel gizlensin diye Application.Visible = False yerine Windows(ThisWorkbook.Name).Visible = False yapıyorum
Bu defa hem Excel' i hem de UserFormu açmıyor

Muhtemelen dosya içindeki kodlar çakışıyor
Nasıl düzeltebilirim

Private Sub Workbook_Open()

On Error Resume Next
Application.Visible = False

UserForm1.Show

End Sub

 

[kemal turan]

Userform1.show satırını ilk satır olarak deneyin

 

[mekist]

Daha önce denemiştim, tekrar denedim
Bu defa UserForm açılıyor, onunla birlikte Excel' de açılıyor
Gizleme devreye girmiyor

Private Sub Workbook_Open()

On Error Resume Next
UserForm1.Show
Windows(ThisWorkbook.Name).Visible = False


End Sub

 

[ÖmerBey]

Merhaba,
Gizlemek için ThisWorkbook.Windows(1).Visible = False kodunu dener misiniz?

 

[mekist]

Denedim UserForm' u da gizliyor

 

[ÖmerBey]

Userform_Initialize kodunda yer alan
Set s5 = Sheets("Hisseler") satırını
Set s5 = ThisWorkbook.Sheets("Hisseler") şeklinde değiştiriniz.

 

[mekist]

Teşekkür ederim düzeldi
Sheets("Hisseler") yazan yerlerin hepsinde hata verdi

 

[ÖmerBey]

Kodda çalışma kitabı belirtilmediği için aktif çalışma kitabına göre işlem yapılıyor, orada "Hisseler" isminde bir sayfa bulamadığı için de hata veriyor.
Aktif olmayan dosya veya sayfalarda işlem yaptırmak için bunu belirtmek gerekiyor. Aksi halde aktif olan dosya veya sayfa üzerinde işlem yapılır.

 

[mekist]

@ÖmerBey

Detay için teşekkür ederim, bunu bilmiyordum

Ayrıca yabancı forumda [B]UserForm1.Show vbModeless[/B]UserFormu yazınca açıkta olan başka Excelleri kullanmama izin veriyor
Excel' de olduğu gibi sağda x işareti var ya onun gibi küçültme ikonu var mıdır, küçültüp başka işlere devam etmek için
https://chandoo.org/forum/threads/excel-vba-windows-thisworkbook-name-visible-false.21782/

 

[ÖmerBey]

Excel' de olduğu gibi sağda x işareti var ya onun gibi küçültme ikonu var mıdır, küçültüp başka işlere devam etmek için

Bunun için API kullanmanız gerek sitede örnekleri var.
Mesela:

Userform'un minimize olması.

Arkadaşlar yardımınızı bekliyorum. "AnaForm" adında formum var. Forma eklediğim komut butonuna tıkladığımda çalışma kitabımdaki istediğim sayfaya gitmesi, ardından da formun görev çubuğunda minimize olması için hangi kodu eklemem gerekiyor. User forma görev çubuğunda minimize olmasını...

www.excel.web.tr

 

[mekist]

çok teşekkür ederim

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...