Word'ü Direkt Kapatmak

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar ben aktif Word dükamanını direkt kapatmak istiyorum, "Kaydet" ve "Kaydetme"
mesaj penceresi çıkmadan kapatmak istiyoruz. Kullandığımız kodlar bunlar,

Sub KaydetmeÇık()
On Error Resume Next
ThisDocument.Close
Application.Quit
End Sub

Buna rağmen veri yazılıp kapatıldığında mesaj penceresi çıkıyor, bu mesaj penceresinin çıkmasını nasıl engeleyebiliriz?, teşekkür ediyorum, Allah razı olsun.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub KaydetmeÇık()
    On Error Resume Next
    ThisDocument.Close 0
    Application.Quit
End Sub

 

[Seyit Tiken]

Korhan bey teşekkür ediyorum, sayfa tümden kapanmıyor, bu şekilde kalıyor, amaç kökten kapatmak, teşekkür ediyorum, Allah razı olsun.

 

[leumruk]

merhaba Seyit Bey,
Kaydetmeden kapatmak için:

Sub KaydetmeÇık()
Application.Quit 0
End Sub

Kaydederek çıkmak için 0 yerine -1 kullanabilirsiniz.

 

[Seyit Tiken]

Mustafa bey, tebrik ediyorum, harika oldu, Allah razı olsun.

 

[leumruk]

Rica ederim Seyit Bey, iyi çalışmalar dilerim.