userform kapanınca excel kapansın

[thecarow]

Herkeze selamlar;
Ekte hazırladığım userform'da ki programı kapat butonuna bastığımda userform kapanıyor ama excel kapanmıyor.Ben otomatikmen excel sayfasının da kapanmasını istiyorum.Bu konuda yardımcı olabilirmisiniz.
Veri tabanı şifresi ve VBA şifresi:3152411
Saygılarımla.

 

[Ayhan Ercan]

Merhaba
Userformun kod penceresine;

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
ActiveWorkbook.Close True
End Sub

 

[thecarow]

Hocam teşekkür ederim

 

[thecarow]

Dediğiniz kodu yazdım fakat şidi daha büyük bir sorunum var veri tabanına basıncada dosya kapanıyor.Veri tabanına nasıl ulaşabilirim.

 

[Skorpiyon]

Sayın thecarow,

KAYIT_FORMU üzerindeki Veritabanı butonunuzun kodunu aşağıdaki şekilde değiştirin.

Private Sub CommandButton5_Click()
KAYIT_FORMU.Hide
VERİTABANI.Show
End Sub

Ayrıyeten;
VERİTABANI formunuzdaki Çıkış butonunuzun kodunu da aşağıdaki şekilde değiştirmenizi tavsiye ederim.

Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
Application.Quit
End Sub

Zira çıkış butonuna basıldığında form gizlenmekte ve Excel halen açık kalmaktadır. Üstteki kod ise "kayıt yapılmadan" direkt çıkışı sağlamaktadır.

 

[thecarow]

Şaban hocam;
Teşekkür ederim.
Saygılarımla.