HISTORY Excel

[mohager1040]

السلام عليكم و رحمة الله و بركاته

لو عندي ملف اكسيل ممكن أعرف عدد مرات حفظ الملف و كذلك تاريخ كل حفظ علي مدار مدة زمنية معينة ( شهر سابق مثلا )

بمعني أخر History بتاع حفظ الملف

و جزاكم الله خيرا

[ياسر خليل أبو البراء]

أخي الكريم المهاجر

يرجى مراجعة رابط التوجيهات وتغيير اسم الظهور للغة العربية

 

إليك الكود التالي يوضع في حدث المصنف

بفرض أن لديك ورقة عمل باسم SaveInf والتي سيتم تسجيل المعلومات الخاصة بالحفظ داخلها .. التاريخ والوقت وورقة العمل النشطة التي تمت عملية الحفظ فيها واسم المستخدم الذي قام بعملية الحفظ وعدد مرات الحفظ ..

أرجو أن يكون المطلوب

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With ThisWorkbook.Sheets("SaveInf")
        If Application.CountA(.Range("A1:C1")) = 0 Then .Range("A1:C1").Value = Array("اسم المستخدم", "ورقة العمل أثناء الحفظ", "وقت عملية الحفظ")
        With .Range("A" & Rows.Count).End(xlUp)(2)
            .Resize(, 3).Value = Array(Application.UserName, ActiveSheet.Name, Now)
            With .Offset(1, 2)
                .FormulaR1C1 = "=COUNT(R2C:R[-1]C)&"" إجمالي مرات الحفظ"""
            End With
        End With
    End With
End Sub

لا تنسى أن تحدد أفضل إجابة كما لا تنسى أن تضغط "أعجبني هذا" إذا أعجبك المحتوى والكود

تقبل تحياتي :fff:

Save Process History YasserKhalil.rar