EXEL - čas posledního uložení Vyřešeno

[ondrejbenes8]

Dobrý den

Snažím se v programu excel 2007 nastavit funkci která by do buňky vypsala datum a čas posledního uložení tohoto dokumentu ale nedaří se mi.

Mohli by jste mi prosím poradit jak na to?


Děkuji.

[Reklama]

[guest]

VBA, vlastní funkce:

Function SouborDatumCas()
Application.Volatile
SouborDatumCas = Format(FileDateTime(ThisWorkbook.FullName), "d.m.yyyy hh:nn")
End Function

--- Doplnění předchozího příspěvku (05 Lis 2011 13:17) ---

A nebo taky:

Function SouborDatumCas()
Application.Volatile
SouborDatumCas = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "d.m.yyyy hh:nn")
End Function

[mike007]

Alt+F11 --> v levém menu kllikni na ThisWorkbook a do prázdného okna vlož toto makro:

Kód: Vybrat vše

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,  Cancel As Boolean)
Range("A1") = Now
End Sub

Buňku si nastav podle sebe.

[ondrejbenes8]

zdravím

Podařilo se mi zadat kód do ThisWorkbook a zkutečně se ukázalo datum i čas.
Poté jsem dokument uložil s povolenými makry.

Bohužel když jsem dokument znovu uložil, čas se nezměnil.

[mike007]

Nastav macro security na LOW, ulož a znovu otevři xls. Mělo by to pak fungovat.

[ondrejbenes8]

Ha! To je ono :) Teď už vše funguje naprosto bez problému
Děkuju!