userform kapanmasın

[MUTLUXXX]

formu açtığımda userform1deki commandbutton1 e 1 kez tıklamadan formdan çıkış olmasın.sağ üstteki çarpıya tıkladığımda verileri göndermeden gerçekten çıkmak istiyormusunuz şeklinde msj gelsin.Tşk ediyorum

 

[ileriexcel]

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If MsgBox("verileri göndermeden gerçekten çıkmak istiyormusunuz", vbYesNo) = vbNo Then
If CloseMode = 0 Then
Cancel = True
End If
End If
End Sub

 

[emrexcel123]

dosya ektedir

dosyayı inceleyiniz...

 

[MUTLUXXX]

Tşk ediyorum

İŞİmİ GÖrdÜ Her İkİ Cevapta

 

[MUTLUXXX]

exceldende çıkılmasın

yanlız bir eksik var unutmuşum aslında istediğim şey userform1 de iken commanbutton1 e 1 kez basılmaz ise excelden çıkılmak istendiğinde yani çarpıya basıldığında msgbox " verileri göndermediniz",vbyesno) Then
cevap=vbno ancak no ya basıldığında çıkılsın.tekrar tşk ediyorum

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Dim deg as integer
 
Private Sub CommandButton1_Click()
deg=1
.
.
diğer kodlarınız
.
.
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If MsgBox("verileri göndermeden gerçekten çıkmak istiyormusunuz", vbYesNo) = vbNo or deg=0 Then
If CloseMode = 0 Then
Cancel = True
End If
End If
End Sub