Kaydetmeden çıkış

[MEGANE II]

Arkadaşlar benim istediğim, sayfada gerektiği zaman değişiklik yapmak fakat dosyayı kapatırken, otomatik olarak kaydetmeden kapatması.bunu nasıl yapabilirm? dosyayı kapatırken kaydetmek isteyip istemdiğimi sormasını da istemiyorum

 

[N.Ziya Hiçdurmaz]

yanıt

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

 

[MEGANE II]

Bu kodla yaptıgımda sayfayı kapatırken yine kaydetmek isteyip istemediğimi soruyor. :/

 

[hamitcan]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub

şeklinde deneyin.

 

[MEGANE II]

Tamamdir TeŞekkÜr Ederİm

 

[MEGANE II]

peki aynı şeyi "pencereyi kapat" için nasıl yapabilrim?

 

[hamitcan]

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

şeklinde deneyin.