Indsætte dato og tidspunkt for 'senest gemt'

og det må gerne være skåret ud i pap, hvis der f.eks. skal kodes i VB :-)

Prøv følgende
Læg nedenstående kode ind i et modul, og udfyld ARKNAVN og CELLE.
Nu gemmes den tid hvor filen lukkes i CELLE.
Formater CELLE i det format du ønsker.
____________________________________
Sub auto_close()
Sheets("ARKNAVN").Range("CELLE") = Time
End Sub

Eksempel
________________
Sub auto_close()
Sheets("Ark1").Range("a1") = Time
End Sub

Du skal nok bruge Now istedet for Time, for også at få datoen med

Prøv flg.

I et nyt ark. Opret en makro i worksheet

(åben Visual basic editor)
Klik på Worksheet i VBA-projectvælgeren til venstre
Tryk F7 (og der kommer et editeringsvindue)
Vælg BeforeSave i kombinationsboksen til højre

Indsæt under "Private Sub BeforeSave....." og over "End Sub"
- - -
Range("A1") = "Senest gemt"
Range("A2") = FileDateTime(ActiveWorkbook.FullName)
- - -
Gem excelarket
Luk visual basic editoren.
Juster cellebredden i kolonne A til at håndtere hele tidspunktet

Fremover må du ikke skrive data i cellerne A1 og A2.

Juster sikkerhedsniveauet på Excel til mellem, således at du kan vælge at køre makroer.

Jeg tester her i løbet af i dag, og vender tilbage :-)

Jeg har problem med at finde 'BeforeSave' - kan jeg evt. skrive linien manuelt ? Og hvad skal der så præcist stå?

Aheiss: Når jeg kører makroen manuelt fungerer det fint, men den kører ikke autmatisk. Any ideas ?

Gå ind i VB editoren
Under menupunktet "view" vælger du "Project Explorer"

I dette vindue placerer du dig på This Workbook
Tryk F7
Vælg "Workbook" i kombinationsboksen til venstre og vælg derefter "Before save" og følg vejl. ovenfor.

Slet evt. den del der hedder:
----
Private Sub Workbook_Open()

End Sub
----

Christian: Det var lige præcis den slags pap der skulle skæres ud i :-)
Mange tak for hjælpen !

Aheiss og bak: Hvis i gerne vil have en lille bis af den KÆMPE kage ;-) så smid et svar. Jeg venter lige et par timer før end jeg lukke.
Og som sagt: Tak for hjælpen, det er en fornøjelse at få hjælp fra folk der kan deres kram ... :-)

Nu hvor vi ikke er helt lukket; Hvordan får jeg smidt brugernavn ind i en celle ? Så det bliver : Senest gemt dd.mm.åå tt.mm.ss af 'brugernavn' ?

Så kan du skifte :
_______________________________
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Range("A1") = "Senest gemt"
  Range("A2") = FileDateTime(ActiveWorkbook.FullName)
End Sub

ud med  :
_______________________________
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim MyTime, MyStr
    MyTime = (FileDateTime(ActiveWorkbook.FullName))
    MyStr = Format(MyTime, "dd/mm/yy hh:mm")
    Range("A1") = "Senest gemt : " & MyStr & "  af " & Application.UserName
End Sub