Makro - Dato for oprettelse og dato for ændring

De ting du efterlyser kan ses under FILER->EGENSKABER->STATISTIK.

Ellers skulle denne makro kunne gøre det:

Sub info()
Range("a2").Value = FileDateTime(ActiveWorkbook.FullName)
Range("a1").Value = ActiveWorkbook.BuiltinDocumentProperties.Item _
      ("Creation date")
End Sub

Hej janvogt

Det virker desværre ikke som det skal.
1) Dato for oprettelse af dokumentet f.eks test.xsl
  Her sætter den en dato ind: 10/12-2001
2) Hvis gemmer arket f.eks. 1/4-2004 kl. 15.00
  Så åbner jeg det igen 10 min. senere, og så burde der stå: 1/4 kl.15.00,    men der står 1/4 kl. 15.10.

Hele koden ser sådan ud:

Private Sub Workbook_Open()
[e2] = Application.UserName
ActiveSheet.Unprotect
Range("s2").Value = FileDateTime(ActiveWorkbook.FullName)
Range("ah3:ak3").Value = ActiveWorkbook.BuiltinDocumentProperties.Item _
      ("Creation date")
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
If Sheets("Ordreseddel").Range("ak1") > 1 Then Exit Sub
RapNr
End Sub

Med venlig hilsen
Kim

Kim alias tynde

Kan det være fordi at den åbner fra en skabelon?

Prøvede lige at åbne min testfil og køre makroen igen.
Den fungerer fint :-)

Tror ikke, at det er fordi makroen køres fra skabelon - har dog ikke testet det.

Jeg mangler vist at acceptere denne.
Prøver lige.

Hej,

Det er lige noget som jeg også kan bruge, men jeg løber ind i lidt problemer efter at have gemt arket som .xlt. Min makro ser således ud:

Private Sub Workbook_Open()
ActiveSheet.Unprotect
Range("AI8").Value = FileDateTime(ActiveWorkbook.FullName)
Range("AI5:AI5").Value = ActiveWorkbook.BuiltinDocumentProperties.Item _
      ("Creation date")
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
End Sub

Den brokker sig over følgende linie når jeg starter et nyt projekt på baggrund af templaten:

--> Range("AI8").Value = FileDateTime(ActiveWorkbook.FullName)

Har i noget input?

/E100

Jamen dog ...
Takker!