Makro kullanarak Degisiklikleri Kayit etmeden Sayfayi kapatmak

[musak64]

Calisma sayfasini normal pencere üzerinden kapatirken windows ´un "degisiklikler kaydedilsin mi? " sorusuna makro ile hayir komutunu nasil yazabiliriz?

 

[musak64]

Arkadaslar yardimlarinizi bekliyorum

 

[Korhan Ayhan]

Selamlar,

ALT+F11 İLE kod editörünü açtıktan sonra aşağıdaki kodu "ThisWorkbook" bölümüne uygulayıp denermisiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Application.Quit
End Sub

 

[musak64]

Selamlar,

ALT+F11 İLE kod editörünü açtıktan sonra aşağıdaki kodu "ThisWorkbook" bölümüne uygulayıp denermisiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Application.Quit
End Sub

Selam.Sayin COST_CONTROL Öncelikle Tesekkür ederim. Bir nevi problemim cözüldü ancak Acik olan tüm Calisma Sayfalarim kapaniyor. Ben sadece örnegin örnek.xls dosyasinin kapanmasini istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Close False
End Sub

 

[musak64]

Cok Tesekkürler. tam istedigim gibi.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SAY = Excel.Application.Windows.Count
    If SAY = 1 Then
    Application.DisplayAlerts = False
    Application.Quit
    Else
    ActiveWorkbook.Close False
    End If
End Sub