Görünmeyen Çalışma Sayfasının kapanması

[netroskop]

Değerli hocalarım. Benim şöyle bir sorunum var umarım benim içinde bir çözümünüz vardır. Excel sayfamda verileri girdiğim bir userform kullanıyorum. Çalışma kitabının görünmesini istemediğim için

Application.Visible = False komutu kullandım. Fakat bu durumda userform'um sağ üst köşesindeki "X" tıklanarak çıkılması durumunda sadece userform kapanıyor. Fakat EXCEL sayfası arkaplanda açık kalıyor. Sizden isteğim userform kapandığında Çalışma sayfasınında kapanması. Bu konuda sizden yardım istiyorum. Yardımınız için şimdiden teşekkür ederim.

 

[Orion1]

Aşağıdaki kod işiniz görürü.

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

 

[Seyit Tiken]

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