Soru Çalışma kitabındaki değişiklikleri anlayan makro

[tarık34]

Öncelikle tüm forum üyelerine selamlar.
Bilindiği gibi bir çalışma kitabında değişiklik yaptıktan sonra sağ üstteki çarpıya basınca
"Değişiklikleri kaydetmek istiyor musunuz?" ekranı geliyor.
Bunu makro kodla yapabilir miyiz?

 

[PLİNT]

Öncelikle tüm forum üyelerine selamlar.
Bilindiği gibi bir çalışma kitabında değişiklik yaptıktan sonra sağ üstteki çarpıya basınca
"Değişiklikleri kaydetmek istiyor musunuz?" ekranı geliyor.
Bunu makro kodla yapabilir miyiz?

Merhaba
Aşağıdaki gibi bir örnek kod olabilir.

Sub kayıt_var()
If ThisWorkbook.Saved = False Then
sor = MsgBox("İşlem yapıldı; Çalışma Kitabını Kaydetmek İstermisiniz?", vbYesNo)
If sor = vbYes Then ThisWorkbook.Save
'If sor = vbNo Then 'ThisWorkbook.Saved = true
End If
End Sub

Kapanışta kullanmak için; "Thisworkbook(Buçalışmakitabı) kod penceresinde; aşağıdaki başlık altına yazarsınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 

[tarık34]

Kodlar için ÇOK teşekkürler sayın PLİNT.