exceli kaydetmeden çıkma ve sayfa çıkışını (X) iptal etme

[ferdinand]

arkadaslar, forumda arama yaptım forumdan buldugum kodları asagida veriyorum. bu konu islenmiş ancak ben çözemedim.

dosyayı kapatmak için sayfa ustundeki X dugmesine tıkladıgımda excel sayfama koydugum butona yonlendirme mesajı alıyorum. bu noktada istedigim islem tamamdır.

sonra dosyayı kapatmak için sayfaya koydugum butona tıkladıgımda aynı mesajboxı yine alıyorum.

sayfaya koydugum kapatma butonuna basıldıgında sayfayı kaydetmeden sayfayı kapasın. sayfanın üstünde bulunan X kapat düğmesine basarak çıkış olmasın.

yardımcı olurmusunuz? nerede eksik veya hata var?

thisworkbook kod alanınaki kodlar:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If KONTROL = False Then
Cancel = True
MsgBox "X (Çıkış) düğmesi pasif durumdadır. Lütfen sayfa üzerindeki çıkış düğmesini kullanın.", vbExclamation, "Dikkat !"
End If
End Sub

butona atadıgım moduldeki kod:

Sub kapat()

Application.DisplayAlerts = True
ActiveWorkbook.Close

End Sub

modul 1 e yazdıgım kod:

Option Explicit

Public KONTROL As Boolean

 

[hamitcan]

Sub kapat()
KONTROL= True
Application.DisplayAlerts = True
ActiveWorkbook.Close

End Sub

şeklinde dener misiniz ?

 

[ferdinand]

Sub kapat()
KONTROL= True
Application.DisplayAlerts = True
ActiveWorkbook.Close

End Sub

şeklinde dener misiniz ?

değişiklikleri kayıt etmek istiyormusunuz? soruyor. Yani exceli X işaretinden kapatırken karşımıza çıkan kaydetme sorusunu soruyor.

 

[hamitcan]

Sub kapat()
Application.DisplayAlerts = False
KONTROL= True
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

böyle deneyin.

 

[ferdinand]

tesekkur ederim. şimdi istedigim oldu, tekrar tesekkur ederim.

 

[bilalakdeniz]

Arkadaşlar Merhaba, X ya ( Kapat ) düğmesine basdığımız zaman istemiş olduğum makro nun çalışmasını istiyorum, Yedek almak için makro var, X ya bastığımda otomatik yedek almasını istiyorum, İyi Çalışmalar,

 

[yavuz829]

Arkadaşlar kodları kayetmeden çıkmak için yazmışsınız. Birde kaydet çık için bir kod yazarmısınız.

 

[hamitcan]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
activeworkbook.save
End Sub

 

[yavuz829]

Hocam Ferdinand arkadaşımızın eklediği aşağıdaki kodları ThirsWorkbook sayfasına ekleyerek (X) işaretinin pasif duruma getirdim. Sayfama bir buton ekledim bu eklediğim buton ile kayıt yapılarak çıkmak istiyorum. Çıkış butonu için yazılacak kodu yazarsanız sevinirim. İyi çalışmalar.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If KONTROL = False Then
Cancel = True
MsgBox "X (Çıkış) düğmesi pasif durumdadır. Lütfen sayfa üzerindeki çıkış düğmesini kullanın.", vbExclamation, "Dikkat !"
End If
End Sub

 

[hamitcan]

Bu şekilde deneyin.

Sub kapat()
Application.DisplayAlerts = False
KONTROL= True
ActiveWorkbook.save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

 

[yavuz829]

Çok teşekürler hocam ellerinize sağlık

 

[yavuz829]

Hocam kapat düğmesi ile çıkamiyorum. Örek dosyayı ekliyorum.