Bir çalışma kitabının kaydedilip kaydedilmediğini nasıl kontrol edebilirim?

Yeni bir çalışma kitabı açtığınızda, onu kaydetmeyi unutabilirsiniz ve çalışma kitabını yanlışlıkla kapatırsanız bu sinir bozucu olabilir. Peki, bir Excel çalışma kitabının kaydedilip kaydedilmediğini nasıl kontrol edebilirsiniz?

VBA kodu ile bir çalışma kitabının kaydedilip kaydedilmediğini kontrol etme

VBA kodu ile bir çalışma kitabının kaydedilip kaydedilmediğini kontrol etme

Bir çalışma kitabının kaydedilip kaydedilmediğini kontrol etmek için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarını basılı tutun.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Module Penceresine yapıştırın.

VBA kodu: Bir çalışma kitabının kaydedilip kaydedilmediğini kontrol etme:

Sub filesaved()
'Updateby Extendoffice 20161109
    Dim sLastTime As String
    On Error GoTo EHandler
    sLastTime = ActiveWorkbook.BuiltinDocumentProperties("last save time")
    MsgBox sLastTime, vbInformation, "Kutools for Excel"
    Exit Sub
EHandler:
    MsgBox "File not saved", vbInformation, "Kutools for Excel"
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın, aşağıdaki gibi uyarı kutuları alacaksınız:

(1.) Çalışma kitabı kaydedilmişse, çalışma kitabınızın son kaydedilme zamanını hatırlatmak için bir uyarı kutusu açılacaktır:

(2.) Eğer çalışma kitabı kaydedilmemişse, aşağıdaki uyarı kutusunu alacaksınız: