Diğer UserForm açılırken gelen uyarının iptali

[Galus]

Userform kapanırken açık diğer sayfaları göstermesi için aşağıdaki kodları kullanıyorum.
-----------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
CVP = MsgBox("PROGRAM KAPATILACAK VERİ TABANI AÇILSINMI?", vbYesNo, "Excel.Web.Tr")
If CVP = vbYes Then
Application.Visible = True
ActiveWorkbook.Save
Application.ScreenUpdating = False
Else
Application.Visible = True
ActiveWorkbook.Save
Application.ScreenUpdating = False
Workbooks("FilimFihrist.xls").Close True
End If
End Sub
-------------------

Formdaki diğer UserForm1 kapanıp UserForm2 yi açarken yazdığım

======================
Private Sub CommandButton12_Click()
Unload Me
Application.Visible = True
End Sub
======================
kodlar gayet güzel çalışıyor ama MsgBox("PROGRAM KAPATILACAK VERİ TABANI AÇILSINMI?" uyarısı da geliyor. Bu uyarının sadece kapat butonu ile çalışmasını sağlıyabilir miyiz?

Teşekkürler...

 

[Galus]

Baktım yardım falan yok. Bende veri tabanını açmaktan vazgeçtim. Sağ üst köşedeki "X" butonundan kapayı iptal ettim. "Veri tabanını aç" ve "Exceli kapa" diye iki ayrı buton yaptım. Sorunu böyle çözdüm.

 

[halit3]

Baktım yardım falan yok. Bende veri tabanını açmaktan vazgeçtim. Sağ üst köşedeki "X" butonundan kapayı iptal ettim. "Veri tabanını aç" ve "Exceli kapa" diye iki ayrı buton yaptım. Sorunu böyle çözdüm.

bu kodu denermisiniz.?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
Cancel = 1
CVP = MsgBox("PROGRAM KAPATILACAK VERİ TABANI AÇILSINMI?", vbYesNo, "Excel.Web.Tr")
If CVP = vbYes Then
Application.Visible = True
ActiveWorkbook.Save
Application.ScreenUpdating = False
Else
Application.Visible = True
ActiveWorkbook.Save
Application.ScreenUpdating = False
Workbooks("FilimFihrist.xls").Close True
End If
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
Application.Visible = True
End Sub

 

[Galus]

Sayın halit3 ,

Tam aradığım buydu. Yardım ve destekleriniz için şükranlarımı arz ederim.

 

[halit3]

iyi çalışmalar