Çarpıdan(X) Uygulama Kapatma

[Seyit Tiken]

Herkese Selamlar,
UserForm'un sağ üst köşesinde bulunan kırmızı çarpı(X) işaretine basılıp Çalışma Kitabı kapatılabilir mi? Kökten. Soruyu biraz daha açayım : Excel Çalışma Kitabı kapalı(gizlenmiş). Yalnız UserForm açıktır. İşte UserForm'un çarpı işaretine basıldığı zaman uygulama kapansın. Gözükmeyen Çalışma Kitabı kapansın. Teşekkür ediyorum.

Not : Yalnız UserForm'un açık olduğu durumlarda çarpı işaretiyle kapatıldığı zaman UserForm kapanıyor. Ama çalışma kitabı gözükmemesine rağmen kapanmıyor.

 

[szaim]

Bu sorunu bende yaşadım.
Makrolarla denedim olmadı. Kapatmak için Windowsun Görev Yöneticisi ile görevi sonlandırıyorum..
Sanırım bilen arkadaşlar bu sorunu çözerler.

 

[GAYSERİLİ]

[vb:1:cf37d4ddb2]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' Application.ScreenUpdating = False
ActiveWorkbook.Close True
End Sub[/vb:1:cf37d4ddb2]

 

[Seyit Tiken]

Sayın GAYSERİLİ
İlginiz için teşekkür ediyoruz, ama gönderdiğiniz kod sorunu çözemedi.

 

[Zeki Gürsoy]

Her iki şekilde de kullanılabilir.

Private Sub CommandButton1_Click()
Unload UserForm1
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

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

 

[xxrt]

Seyit Tiken,

Çalışma Kitabı kapalı(gizlenmiş).

Çalışmanızda Sub Auto_open() kısmındaki kodları yazarmısınız?

edit:Sayın anemos'un 2.kodunu önerecektim.

 

[Seyit Tiken]

Sayın xxrt, kod bu.

Sub auto_open()
Application.Visible = False
UserForm1.Show 0
End Sub

Anemos'unkini birazdan deneyecem.

 

[xxrt]

Anemos'unkini birazdan deneyecem.

Onun verdiği kod (2.paragraftaki) cevaptır.
Kolay gelsin

 

[kadir17]

arkadaşlar bana yadımcı olurmusunuz x exel kapanmıyor

 

[wishm]

Ekli dosyanın olmaması çözümü zorlaştırmasına karşın, çalışmanızın aşağıdaki kodlardan oluşabileceği tahmininden hareketle;
Module kısmına;

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

User Form kısmına;

Private Sub UserForm()
Unload UserForm1
ActiveWorkbook.Close False
Application.Visible = True
Application.Quit
End Sub

kodlarını kendinize uyarlayıp deneyin.
Saygılarımla.

 

[ugur111]

Arkadaşlar , ben aşağıdaki formu denedim ve istediğime ulaştım . Ancak şuan bir problem oluştu ve kodlar çalıştığı için excel sayfasına giremiyorum . ne yapmalıyım .


Private Sub UserForm()
Unload UserForm1
ActiveWorkbook.Close False
Application.Visible = True
Application.Quit
End Sub