excelin Alt+f4 veya sağ üst köşedeki X işaretiyle kapatılmasını önlemek..

[sedatuysal]

merhaba, VBA ile excelin Alt+f4 veya pencerenin sağ üst köşesindeki X simgesiyle kapatılmasını önleyebilirmiyim?

 

[hamitcan]

Sorunuz, API uygulmalarını içeriyor. Bu yüzden API uygulamaları ile ilgili bölüme bakmanızı öneririm.

 

[sedatuysal]

bu forumdaki API bölümünde yazdığım konuyla ilgili API bulamadım. örnek bir api gönderebilirseniz sevinirim... iyi günler..

 

[hamitcan]

Aşağıda, API kullanılmadan yapılmış örnekler mevcut. Hatırımda öyle kalmış. Ama yine de sitede arama yapmanızı öneririm.
http://www.excel.web.tr/showthread.php?t=40099&highlight=kapatma
http://www.excel.web.tr/showthread.php?t=35616&highlight=kapatma

 

[hakangs]

kapatma iptal..

merhaba, VBA ile excelin Alt+f4 veya pencerenin sağ üst köşesindeki X simgesiyle kapatılmasını önleyebilirmiyim?

If Not (MsgBox( _
"Excel penceresini kapatmak istediğinize emin misiniz", _
vbOKCancel, "DİKKAT!") = vbOK) Then
Cancel = True
End If

 

[hakangs]

If Not (MsgBox( _
"Excel penceresini kapatmak istediğinize emin misiniz", _
vbOKCancel, "DİKKAT!") = vbOK) Then
Cancel = True
End If

 

[hakangs]

bu kodu Workbook_BeforeClose olayına yazacaksınız