درج تاریخ آخرین سیو شدن فایل در سلول

[nazarloo]

با سلام و احترام. میخوام بدونم بدون استفاده از ماکرو میشه تاریخ آخرین سیو شدن فایل رو در سلولی درج کرد.یعنی وقتی فایل رو باز میکنیم تاریخ سیو قبلی رو ببینیم.ممنون

[iranweld]

با سلام
وقتی فایل رو باز میکنید از قسمت file میتوانید تاریخ ایجاد و آخرین تاریخ و ساعت ویرایش را ملاحظه کنید

[ATTACH=CONFIG]7193[/ATTACH]

[generalsamad]

علاوه بر پاسخ جناب iranweld از Details خود فایل هم میشه جزئیات بیشتر رو ببینید
کافیه روی فایل کلیک راست و Properties بگیرید در پنجره باز شده سربرگ Details رو بزنید

[nazarloo]

بله اونرو میدونم.من با تاریخی که در یک سلول ایجاد میشه قصد محاسبه دارم

[generalsamad]

فکر نکنم تابعی موجود باشه که اینکار رو انجام بده
شما میتونید یک تابع ایجاد کنید که این کار رو انجام بده

Function LastSavedTimeStamp() As Date
    LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function 

این ماژول رو ایجاد کرده سپس این فرمول رو توی یکی از سلولها وارد کنید

=LastSavedTimeStamp() 

فرمت سلولتون هم به date و قالب مخصوص تغییر بدید
فایل ضمیمه گردید

[AmirAkbar]

از این کد ساده می تونی در پنجره کد ورک بوک استفاده کنی:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("Sheet1").Range("a1").Value = Date
End Sub 

بجای a1 سلول مورد نظر رو وارد کنید..

[nazarloo]

ممنون از راهنمایی های شما.اما من نمیخوام فایلم با فرمت ماکرو ذخیره بشه.چون فایل قرار رو رایانه های دیگه باز بشه که احتمالاً ارور دیزیبل بودن ماکرو رو بهشون میده.