Sayfa KapaniŞi

[durhan]

Excel Sayfasinin KÖŞedekİ (x) Üzerİnden DeĞİlde Eklİ Lİstedekİ DÜĞmeden Kapanmasini İstİyorum. Bu Olabİlİr Mİ?

 

[Ayhan Ercan]

aşağıdaki gibi deneyiniz....

If sor = vbYes Then
[B][COLOR=red]Application.Quit[/COLOR][/B]
[COLOR=black]ActiveWorkbook.Save[/COLOR]
ActiveWorkbook.Close = True
Else
Application.DisplayAlerts = False
[B][COLOR=#ff0000]Application.Quit[/COLOR][/B]
ActiveWorkbook.Close = True

 

[Seyit Tiken]

Kodu kitap bölümüne yapıştırıp deneyin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "Kitabı burdan kapatmayın!.."
End Sub

 

[Orion1]

Dosyanız ekte.

 

[durhan]

TeŞekkÜr

böyle bir form hazırlayan, emeği geçen ve benim soruma cevap verenlere sonsuz teşekkürlerimi bir borç biliyorum. saygılar

 

[Orion1]

böyle bir form hazırlayan, emeği geçen ve benim soruma cevap verenlere sonsuz teşekkürlerimi bir borç biliyorum. saygılar

Rica ederim.
İyi çalışmalar.