كيفية التحقق مما إذا كان المصنف قد تم حفظه؟

عندما تفتح مصنفاً جديداً، قد تنسى حفظه، وسيكون الأمر مزعجاً إذا أغلقت المصنف عن طريق الخطأ. لكن، كيف يمكنك التحقق مما إذا كان مصنف Excel قد تم حفظه؟

التحقق مما إذا كان المصنف قد تم حفظه أم لا باستخدام كود VBA

التحقق مما إذا كان المصنف قد تم حفظه أم لا باستخدام كود VBA

للتحقق مما إذا كان المصنف قد تم حفظه أم لا، يمكن أن يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: التحقق مما إذا كان المصنف قد تم حفظه أم لا:

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. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، ستحصل على مربعات الحوار التالية:

(1.) إذا كان المصنف قد تم حفظه، سيظهر مربع حوار لتذكيرك بآخر وقت تم فيه حفظ المصنف الخاص بك:

(2.) إذا لم يتم حفظ المصنف، ستحصل على مربع الحوار التالي: