Footer : Last saved date

[Guest]

Problem : I have xlt template. When a user opens by double clicking the
template it creates xls.

What i want is that if xls is not yet saved then footer should print todays
date and time. but if xls is saved and being accessed later then it should
print the last saved time.

What i did : on workbook_beforeprint i wrote the following :-

Application.Volatile
ActiveSheet.PageSetup.LeftFooter=_
ThisWorkbook.BuiltinDocumentProperties("Last Save Date")

It works fine if the xls has been saved once but if it is not yet saved then
it prints the last saved date of the template and not the xls created.

 

[Frank Kabel]

Hi
no chance around this restriction. You have to save first before this
document property is updated. what other date would you expect anyway
)

 

[Ron de Bruin]

Hi Ajit

You can use this
If the file is not saved it have no path


If Len(ThisWorkbook.Path) = 0 then

.......

Else

.......

End if

 

[Guest]

I would expect today's date if not saved (and not the last template saved
date).

 

[Frank Kabel]

Hi
but as this is not a 'saved date' this would be 'wrong'
You may use Ron's suggestion to check for a non-saved workbook and use
then the current date

 

[Guest]

Thanks Ron,
It worked perfect. Good Logic.

Thanx,
Ajit

 

[Guest]

Yes you are right, Ron's suggestion worked perfect.

Thanks you very much for chipping in your views.

Thumbs up!