Excel'i kaydetmeden çıkmak için makro nasıl yapabilirim.

[batugul35]

Arkadaşlar merhaba

Excel den çıkmak için bir makro yazdım.
"activeworkbook.close" fakat yine kayıt edeyim mi diye soruyor.
ben makroyu çalıştırınca kaydetmeden çıkmasını istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Kemal Demir]

Günaydın,

Application.DisplayAlerts = False
ThisWorkbook.Close

Yukarıdaki kodu kullanınız.

 

[batugul35]

Çok teşekkür ederim..

 

[batugul35]

Bir şey daha soracağım,
Excel "X" den kapanmaması için hangi makro yazabiliriz.
User form için olanı elimde var ama excell sayfası için bulamadım.

 

[Kemal Demir]

Merhaba,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Böyle Çıkamazsın!", vbCritical, "Dikkat"
End If
End Sub

Aşagıdaki kod ise yukarıdaki kod'un pasif eder dusuncesındeyım.

Sub kapat()
CloseMode = 1
Application.DisplayAlerts = False
ThisWorkbook.Close
End Sub

NOT:X pasif değil ama çıkısını engeller diğe dusunuyorum.

 

[batugul35]

İlginize teşekkür ederim
"X" dan çıkış yaptırmıyor.fakat "kapat" macrosunda da aynı mesajı veriyor kapatmıyor.

 

[Kemal Demir]

Merhaba,

Sub kapat()
CloseMode = 1
Cancel = False
Application.DisplayAlerts = False
ThisWorkbook.Close
End Sub

Yukarıdaki kodu ,adım adım F8 ile ilerlediğimde kod çalışıyor.

NOT: Daha sağlıklı bir koda ulasırsanız size önerdiğim kodu calistirmayınız.

 

[batugul35]

Malesef olmuyor.
Kodlar çalışıyor fakat sonuç vermiyor.
"X" den çıkış yaptırmıyor.ok
Bir tane düğme koydum.o düğmeyide "kapat"macrosu ile çalıştırdım.
"X" de hangi mesajı alıyorsam aynısını kapat macrosunda da alıyorum.

 

[baydeniro]

Sayın Kemal Demir, çok teşekkürler.