UserForm Açıldığında Çalışma Kitabı Sayfaları Gör

[dilekgüç]

userform'mun gözükmesi excel sayfaların gözükmemesini istiyorum bunu nasıl yaparım ustalarımızın yardımlarını bekliyorum saygılar iyi aksamlar.



Edit xxrt:"userform" başlığı "UserForm Açıldığında Çalışma Kitabı Sayfaları Görünmesin"olarak değiştirildi.

 

[Ali]

Thisworkbooka aşağıdaki kodları ekleyin

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

 

[mehmett]

Aşağıdaki kodu daha önce forumda görüp not almışım, belki işinize yarar Dilek hanım.

[vb:1:f8f9470738]Sub auto_open()
Application.Visible = False
Userform1.Show
End Sub[/vb:1:f8f9470738]

 

[dilekgüç]

Kapattıktan sorna excel bölümü gözüküyor güzükmesini iştemiyorum yardımlarınız için teşekkürler.

 

[Ali]

Sn dilekgüç, yukarıda verdiğim kodları Thisworkbook kopyaladığınızda kapandıktan sonrada excel gözükmez.

 

[xxrt]

İlave olarak;

Çalışma kitabını yukarıdaki sayın fructose, vediği kod ile visible yaptığınızda,UserForm'dan ya çıkış butonu koyarak çıktığınızda Çalışma kitabınızı True durumuna getirmelisiniz yada UserForm'un QueryClose (x) işareti ile çıkıldığında çalışma kitabınızı aktif etmelisiniz.

UserForm'a bir CommandButtona şu kodlar:

Private Sub CommandButton1_Click()
Unload Me
Application.Visible = True
End Sub

UserFormun çarpı işaretinden çıkılması halinde de:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

Yazarsanız daha şık olur gibi..

 

[dilekgüç]

kapattıgım zaman excel ortaya çıkıyor çıkmasını iştemiyorum.

 

[Haluk]

Sn dilekgüç, yukarıda verdiğim kodları Thisworkbook kopyaladığınızda kapandıktan sonrada excel gözükmez.

Evet, Excel gözükmez ama.... kapanmaz da. :mrgreen:

 

[Ali]

Onu farkettim Haluk, Bey ama Sn xxrt, yazdığı için geri dönmedim.
Hatırlatmanız için teşekkürler.

 

[Ali]

Alternatif olarak bir command buttona

Private Sub CommandButton1_Click()
Application.Quit
End Sub

derseniz excel kapanırken gözükmez excel.exe'de açık kalmaz ve Haluk Beyi'de güldürmemiş oluruz :mrgreen:

 

[Haluk]

Bence sorunun çözümü;

Standart Modül kodu:

Sub Auto_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

UserForm1 Modül kodu:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Save
    Application.Quit
End Sub

 

[Haluk]

......
ve Haluk Beyi'de güldürmemiş oluruz :mrgreen:

heheh.... gülmeyi severim. :mrgreen:

 

[Ali]

Bencede tam çözüm Haluk, Bey sizin dediğiniz gibi..
Allah hep güldürsün sizi :hey:

 

[dilekgüç]

Ã?rmek yolluyorum .

 

[Ali]

CommandButton5'i aşağıdaki gibi değiştirin.

Private Sub CommandButton5_Click()
ThisWorkbook.Save
Application.Quit
End Sub

 

[Ali]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
'Userformdaki saatin çıkışta sona ermesi içindir.Yoksa
'saat loop döngüsü devamlı çalışacaktır..
End Sub

olanıda aşağıdaki gibi değiştirirseniz x butonu ile kapanıncada excel görünmeden kapanacaktır.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
Application.Quit
End Sub

 

[dilekgüç]

Çalışma sayfası gözüküyor.

 

[Ali]

Ekte gönderiyorum inceleyin.

 

[dilekgüç]

Elinize sağlık güzel olmuş kodları alabilirmiyim 5000satır bilgi ilave edecegim .

 

[rdeniro]

Sevgili Arkadaşlar!

Yukarıda Bahsedilen Kodları kendi örneğime uyguladım ve başarılı oldum. onun için herkese teşekkür ederim.

Yanlız bir sorunum var. Benim örneğimde, ek'te gonderdıgım excel dosyasında start dugmesıne basıldıgında 1 dakıka sonra userform calısıyor ve dakıkayı gosterıyor. ve excel dosyası kaybolarak userform her dakikada bir ortaya çıkıyor, dakikayı gösteriyor ve 15 sn sonra kayboluyor.

Esas problem ise her dakikada bir ortaya çıkan userform yalnızca masaüstü açıksa gözüküyor. Ancak explorer veya folder açıksa userform gözükmüyor. Benim istediğim her ne program, explorer, folder açık olursa olsun userform mutlaka her dakikada bir ekranda gözüküp 15 sn sonra kaybolsun.

Yardımcı olacak arkadaşara şmdiden teşekkür ederim.

Saygılarımla,