Sayfanın çarpısından kapanmasın

[Mdemir63]

Selamlar,

Arkadaşlar Userform olan dosyada her işlemi userform üzerinden yaptırıyorum. Dosyayı kaydedip kapatmak özellikle. Ancak şöyle bir durum söz konusu sayfalardayken sayfaların kapat (yani çarpıdan kapanmaması) işaretinden kapanmamasını sağlamak mümkünmüdür?

Saygılar

 

[fedeal]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "çıkış butondan..!"
Cancel = True
End If
End Sub

 

[Mdemir63]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "çıkış butondan..!"
Cancel = True
End If
End Sub

Selamlar,
İlginize teşekkürler ama sayfadaki çarpıdan yine kapanıyor

Saygılar

 

[Ayhan Ercan]

Merhaba
ThisWorkbook' a

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

 

[Mdemir63]

Merhaba
ThisWorkbook' a

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Selamlar,

Ayhan hocam teşekkürler

Saygılar

 

[Ayhan Ercan]

Selamlar,

Ayhan hocam teşekkürler

Saygılar

Rica ederim.
İyi Çalışmalar....