Userformun kapatı (X) ile sayfayı da kapatmak

[ugur111]

Merhaba Arkadaşlar ;

Çalışma kitabını açtığımda ;

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

End Sub

ile userformu açıp kitabı gizliyorum . Ancak userformu kapattığımda kitap gizli olduğundan açık kalıyor ve sonraki girişimde "mevcut çalışma kitabı açık ...."gibi bir uyarı veriyor . Benim istediğim userformu (x) dan kapattığım zaman çalışma kitabı da kapatılsın .

İyi günler .

 

[wishm]

Sayın uğur 11 benzer bir konu şu anda forumda aktif incelerseniz sanırım sorunuza cevap bulacaksınız kanısındayım. Saygılarımla.

http://www.excel.web.tr/showthread.php?p=393860#post393860

 

[ersoyalan]

Merhaba,

Kodlarınızın sonuna


Unload Me
Application.Quit

ekleyin.

 

[ugur111]

Teşekkürler wishm , konuyu aramıştım ama aranacak metin ile ilgili sanıyorum bu konuyu göremedim . Aşağıdaki kodlarla problemimi çözdüm .

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

Ersoy Bey size de teşekkürler .