Excel i Kapat Butonunda Sorun!

[ocamsul]

Arkadaşlar aşağıdaki kod excel i o an için kapatıyo ama başka bir excel sayfası açtığımda kapattığımı sandım excel sayfası meğer açıkmış kodda ne gibi bir düzeltme gerekiyor? yardım edermisiniz.

Private Sub CommandButton2_Click()
On Error Resume Next
Dim Soru As String
Soru = MsgBox("2006 Yılı Resmi Sağlık Kurumları Fiyat Tarifesi Programından Çıkmak İstediğinizden Eminmisiniz ?", vbQuestion + vbYesNo, "UYARI...!!!")
If Soru = vbYes Then Unload UserForm1
If Soru = vbNo Then buttkapat.SetFocus
End Sub

 

[Seyit Tiken]

Exceli kapatıp yalnız userformu açar :

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

Uygulamayı hepten kapatır :

Private Sub CommandButton1_Click()
Application.Quit
End Sub

 

[Valuer]

Bu şekil denedim oldu. Sizcede uygunmudur.

[vb:1:a0dc657eba]Private Sub CommandButton2_Click()
On Error Resume Next
Dim Soru As String
Soru = MsgBox("2006 Yılı Resmi Sağlık Kurumları Fiyat Tarifesi Programından Çıkmak İstediğinizden Eminmisiniz ?", vbQuestion + vbYesNo, "UYARI...!!!")
If Soru = vbYes Then Unload UserForm1
If Soru = vbNo Then buttkapat.SetFocus
ThisWorkbook.Save
Application.Quit
End Sub
[/vb:1:a0dc657eba]

 

[ocamsul]

Sn: Valuer verdiğiniz kod dizisini bende düşündüm ve denedim. ancak kapatma işlemine hayır dediğimiz zamanda excel i kapatıyor.

 

[Valuer]

Bunu deneyin.
[vb:1:ec10e6e422]Private Sub kapat()
Dim Soru As VbMsgBoxResult
Soru = MsgBox("2006 Yılı Resmi Sağlık Kurumları Fiyat Tarifesi Programından Çıkmak İstediğinizden Eminmisiniz ?", _
vbOKOnly + vbYesNo, "MESAJ")
If Soru = vbYes Then
ActiveWorkbook.Save
Excel.Application.Quit
End If
End Sub[/vb:1:ec10e6e422]

 

[ocamsul]

Valuer

Teşekkür Ederim. bu işlem işimi gördü.

 

[Valuer]

Rica ederim, keşke herkes sizin gibi olsa.