userform ( x ) kapat'a bastığımda kapanmasın

[İhsan Tank]

selam arkadaşlar benim sorunum kod arşiv programındakileri denedim hepsi x basınca kapatıyor buna başka bir çözüm var mı?
örnek dosyam ektedir ( hata verebilir kapalı dosya veri aktarma yapıyor )

 

[Necdet]

Merhaba,

"UserForm X den kapanmasın" diye arattırdım, bakın neler çıktı?

http://www.excel.web.tr/search.php?searchid=1350824

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
    MsgBox "Kapatmak için kapat tuşuna basınız." & vbLf & "evrengizlen@hotmail.com", vbCritical, "UYARI"
    Me.CommandButton3.SetFocus
    Cancel = True
    Exit Sub
End If
MsgBox "KAYITLARINIZI KONTROL EDİNİZ KOLAY GELSİN"
Workbooks("ALIŞ VERİ GİRİŞİ.xls").Close False
End Sub

 

[İhsan Tank]

Merhaba,

"UserForm X den kapanmasın" diye arattırdım, bakın neler çıktı?

http://www.excel.web.tr/search.php?searchid=1350824

hocam teşekkür ederim. yalnız arama yaparken sanırım yanlış yazdım.

 

[İhsan Tank]

Dosyanız ektedir.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
    MsgBox "Kapatmak için kapat tuşuna basınız." & vbLf & "evrengizlen@hotmail.com", vbCritical, "UYARI"
    Me.CommandButton3.SetFocus
    Cancel = True
    Exit Sub
End If
MsgBox "KAYITLARINIZI KONTROL EDİNİZ KOLAY GELSİN"
Workbooks("ALIŞ VERİ GİRİŞİ.xls").Close False
End Sub

teşekkür ederim Allah Razı Olsun

 

[Orion1]

teşekkür ederim Allah Razı Olsun

Rica ederim.
İyi çalışmalar.