تاریخ آخرین ویرایش

Question

به عنوان بخشی از تنظیم یک کاربرگ، ممکن است بخواهید سرصفحه یا پاورقی حاوی تاریخ آخرین ویرایش ورک بوک باشد. اکسل این اطلاعات را حفظ نمی کند، اما به شما این امکان را می دهد که هر زمان که رویدادهای خاصی مانند تغییرات در ورک بوک رخ می دهد، ماکروها را انجام دهید. تنها کاری که باید انجام دهید این است که یک ماکرو مانند موارد زیر را به شی ThisWorkbook در ویرایشگر VBA اضافه کنید:

Private Sub Workbook_SheetChange(ByVal _
  Sh As Object, ByVal Target As Excel.Range)
    ActiveSheet.PageSetup.CenterFooter = _
      "Worksheet Last Changed: " & _
      Format(Now, "mmmm d, yyyy hh:mm")
End Sub

ماکرو باعث می شود که هر پاورقی در هر کاربرگ در ورک بوک دارای تاریخ و زمان جداگانه باشد، زیرا هر کاربرگ در زمان های مختلف به روز می شود. می توانید ویژگی مقصد (.CenterFooter) را به یکی از ویژگی های سرصفحه یا پاورقی دیگر (LeftHeader، .CenterHeader، .RightHeader، .LeftFooter، .RightFooter) تغییر دهید.

ممکن است بخواهید سرصفحه یا پاورقی به جای آن تاریخ آخرین ذخیره ورک بوک را درج کند. (این چیزی است که بسیاری از مردم واقعاً آن را به عنوان «آخرین تاریخ ویرایش» می بینند.Ó) اطلاعات در کادر محاوره ای Properties برای یک کاربرگ قابل مشاهده است، اما اکسل انتخاب منو یا دستور دیگری ندارد که به شما امکان می دهد این تاریخ را در سرصفحه یا هدر وارد کنید. پاورقی در عوض، باید از یک ماکرو برای اضافه کردن اطلاعات مورد نظر استفاده کنید.

بهترین راه برای انجام این کار، اضافه کردن یک ماکرو به شی ThisWorkbook است که درست قبل از ذخیره ورک بوک فعال می شود:

Private Sub Workbook_BeforeSave(ByVal _
  SaveAsUI As Boolean, Cancel As Boolean)
    Dim sht
    For Each sht In Sheets
        sht.PageSetup.CenterFooter = _
          "Workbook Last Saved: " & _
          Format(Now, "mmmm d, yyyy hh:mm")
    Next
End Sub

این ماکرو از هر کاربرگ در ورک بوک عبور می کند و هر پاورقی مرکزی را تغییر می دهد تا تاریخ ذخیره شدن ورک بوک را داشته باشد.