"Last Saved" date in Excel 2000

Is there a way to automatically update a cell in Excel 2000 with the date
that the file was last saved?

Thanks!

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocument*Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Rachael" <Rachael@discussions.microsoft.com> wrote in message
news:C59FD2A0-52F3-406F-8423-F825C1B57306@microsoft.com...
> Is there a way to automatically update a cell in Excel 2000 with the date
> that the file was last saved?
>
> Thanks!

Perfect, thanks.


"Bob Phillips" wrote:

>
> '-----------------------------------------------------------------
> Function DocProps(prop As String)
> '-----------------------------------------------------------------
> Application.Volatile
> On Error GoTo err_value
> DocProps = ActiveWorkbook.BuiltinDocumentĀ*Properties _
> (prop)
> Exit Function
> err_value:
> DocProps = CVErr(xlErrValue)
> End Function
>
>
> and enter in a cell such as
> =DocProps ("last author")
> or
> =DocProps ("last save time")
>
>
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with gmail if mailing direct)
>
> "Rachael" <Rachael@discussions.microsoft.com> wrote in message
> news:C59FD2A0-52F3-406F-8423-F825C1B57306@microsoft.com...
> > Is there a way to automatically update a cell in Excel 2000 with the date
> > that the file was last saved?
> >
> > Thanks!
>
>
>

Hi Bob........this looks cool, and something I could use, but I can't seem to
make it work in XL97. Is there some adjustment that needs to be made to
accomodate 97?

Tks,
Vaya con Dios,
Chuck, CABGx3



"Bob Phillips" wrote:

>
> '-----------------------------------------------------------------
> Function DocProps(prop As String)
> '-----------------------------------------------------------------
> Application.Volatile
> On Error GoTo err_value
> DocProps = ActiveWorkbook.BuiltinDocumentĀ*Properties _
> (prop)
> Exit Function
> err_value:
> DocProps = CVErr(xlErrValue)
> End Function
>
>
> and enter in a cell such as
> =DocProps ("last author")
> or
> =DocProps ("last save time")
>
>
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with gmail if mailing direct)
>
> "Rachael" <Rachael@discussions.microsoft.com> wrote in message
> news:C59FD2A0-52F3-406F-8423-F825C1B57306@microsoft.com...
> > Is there a way to automatically update a cell in Excel 2000 with the date
> > that the file was last saved?
> >
> > Thanks!
>
>
>

Chuck,

I just pasted it into 97 and noticed there was an extra hyphen in there that
you don't see in the post (I think this is caused by Google since it
changed). Removing that and it worked.

Try this version

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function

looks the same, but shouldn't have the hyphen.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"CLR" <CLR@discussions.microsoft.com> wrote in message
news:373B3C7D-4A7E-4DBD-B001-BCA6E124FBCE@microsoft.com...
> Hi Bob........this looks cool, and something I could use, but I can't seem
to
> make it work in XL97. Is there some adjustment that needs to be made to
> accomodate 97?
>
> Tks,
> Vaya con Dios,
> Chuck, CABGx3
>
>
>
> "Bob Phillips" wrote:
>
> >
> > '-----------------------------------------------------------------
> > Function DocProps(prop As String)
> > '-----------------------------------------------------------------
> > Application.Volatile
> > On Error GoTo err_value
> > DocProps = ActiveWorkbook.BuiltinDocument*Properties _
> > (prop)
> > Exit Function
> > err_value:
> > DocProps = CVErr(xlErrValue)
> > End Function
> >
> >
> > and enter in a cell such as
> > =DocProps ("last author")
> > or
> > =DocProps ("last save time")
> >
> >
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (replace somewhere in email address with gmail if mailing direct)
> >
> > "Rachael" <Rachael@discussions.microsoft.com> wrote in message
> > news:C59FD2A0-52F3-406F-8423-F825C1B57306@microsoft.com...
> > > Is there a way to automatically update a cell in Excel 2000 with the
date
> > > that the file was last saved?
> > >
> > > Thanks!
> >
> >
> >

Thanks Bob, that did the trick.

FWIW I've also found that several of the list of BuiltInDocumentProperties
don't work in XL97. Someone said something about 97 not automatically
updating those items, and that they could be "forced", somehow, but I don't
remember how.

Vaya con Dios,
Chuck, CABGx3



"Bob Phillips" wrote:

> Chuck,
>
> I just pasted it into 97 and noticed there was an extra hyphen in there that
> you don't see in the post (I think this is caused by Google since it
> changed). Removing that and it worked.
>
> Try this version
>
> '-----------------------------------------------------------------
> Function DocProps(prop As String)
> '-----------------------------------------------------------------
> Application.Volatile
> On Error GoTo err_value
> DocProps = ActiveWorkbook.BuiltinDocumentProperties _
> (prop)
> Exit Function
> err_value:
> DocProps = CVErr(xlErrValue)
> End Function
>
> looks the same, but shouldn't have the hyphen.
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with gmail if mailing direct)
>
> "CLR" <CLR@discussions.microsoft.com> wrote in message
> news:373B3C7D-4A7E-4DBD-B001-BCA6E124FBCE@microsoft.com...
> > Hi Bob........this looks cool, and something I could use, but I can't seem
> to
> > make it work in XL97. Is there some adjustment that needs to be made to
> > accomodate 97?
> >
> > Tks,
> > Vaya con Dios,
> > Chuck, CABGx3
> >
> >
> >
> > "Bob Phillips" wrote:
> >
> > >
> > > '-----------------------------------------------------------------
> > > Function DocProps(prop As String)
> > > '-----------------------------------------------------------------
> > > Application.Volatile
> > > On Error GoTo err_value
> > > DocProps = ActiveWorkbook.BuiltinDocumentĀ*Properties _
> > > (prop)
> > > Exit Function
> > > err_value:
> > > DocProps = CVErr(xlErrValue)
> > > End Function
> > >
> > >
> > > and enter in a cell such as
> > > =DocProps ("last author")
> > > or
> > > =DocProps ("last save time")
> > >
> > >
> > >
> > > --
> > > HTH
> > >
> > > Bob Phillips
> > >
> > > (replace somewhere in email address with gmail if mailing direct)
> > >
> > > "Rachael" <Rachael@discussions.microsoft.com> wrote in message
> > > news:C59FD2A0-52F3-406F-8423-F825C1B57306@microsoft.com...
> > > > Is there a way to automatically update a cell in Excel 2000 with the
> date
> > > > that the file was last saved?
> > > >
> > > > Thanks!
> > >
> > >
> > >
>
>
>

Chuck,

I think it is probably more likely that some of them are just not
applicable. BuiltinDocumentProperties is an Office-wide function, and so it
includes stuff like SlideNumber (which is clearly just Powerpoint). Not all
apps maintain all properties.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"CLR" <CLR@discussions.microsoft.com> wrote in message
news:11281925-722F-4F9E-B88B-21A25526BC94@microsoft.com...
> Thanks Bob, that did the trick.
>
> FWIW I've also found that several of the list of BuiltInDocumentProperties
> don't work in XL97. Someone said something about 97 not automatically
> updating those items, and that they could be "forced", somehow, but I
don't
> remember how.
>
> Vaya con Dios,
> Chuck, CABGx3
>
>
>
> "Bob Phillips" wrote:
>
> > Chuck,
> >
> > I just pasted it into 97 and noticed there was an extra hyphen in there
that
> > you don't see in the post (I think this is caused by Google since it
> > changed). Removing that and it worked.
> >
> > Try this version
> >
> > '-----------------------------------------------------------------
> > Function DocProps(prop As String)
> > '-----------------------------------------------------------------
> > Application.Volatile
> > On Error GoTo err_value
> > DocProps = ActiveWorkbook.BuiltinDocumentProperties _
> > (prop)
> > Exit Function
> > err_value:
> > DocProps = CVErr(xlErrValue)
> > End Function
> >
> > looks the same, but shouldn't have the hyphen.
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (replace somewhere in email address with gmail if mailing direct)
> >
> > "CLR" <CLR@discussions.microsoft.com> wrote in message
> > news:373B3C7D-4A7E-4DBD-B001-BCA6E124FBCE@microsoft.com...
> > > Hi Bob........this looks cool, and something I could use, but I can't
seem
> > to
> > > make it work in XL97. Is there some adjustment that needs to be made
to
> > > accomodate 97?
> > >
> > > Tks,
> > > Vaya con Dios,
> > > Chuck, CABGx3
> > >
> > >
> > >
> > > "Bob Phillips" wrote:
> > >
> > > >
> > > > '-----------------------------------------------------------------
> > > > Function DocProps(prop As String)
> > > > '-----------------------------------------------------------------
> > > > Application.Volatile
> > > > On Error GoTo err_value
> > > > DocProps = ActiveWorkbook.BuiltinDocument*Properties _
> > > > (prop)
> > > > Exit Function
> > > > err_value:
> > > > DocProps = CVErr(xlErrValue)
> > > > End Function
> > > >
> > > >
> > > > and enter in a cell such as
> > > > =DocProps ("last author")
> > > > or
> > > > =DocProps ("last save time")
> > > >
> > > >
> > > >
> > > > --
> > > > HTH
> > > >
> > > > Bob Phillips
> > > >
> > > > (replace somewhere in email address with gmail if mailing direct)
> > > >
> > > > "Rachael" <Rachael@discussions.microsoft.com> wrote in message
> > > > news:C59FD2A0-52F3-406F-8423-F825C1B57306@microsoft.com...
> > > > > Is there a way to automatically update a cell in Excel 2000 with
the
> > date
> > > > > that the file was last saved?
> > > > >
> > > > > Thanks!
> > > >
> > > >
> > > >
> >
> >
> >