Stránka 1 z 1

EXEL - čas posledního uložení

Napsal: 05 lis 2011 08:00
od 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.

Re: EXEL - čas posledního uložení

Napsal: 05 lis 2011 13:06
od 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

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

Napsal: 05 lis 2011 15:08
od 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.

Re: EXEL - čas posledního uložení

Napsal: 06 lis 2011 19:15
od 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.

Re: EXEL - čas posledního uložení

Napsal: 06 lis 2011 20:45
od mike007
Nastav macro security na LOW, ulož a znovu otevři xls. Mělo by to pak fungovat.

Re: EXEL - čas posledního uložení

Napsal: 06 lis 2011 23:04
od ondrejbenes8
Ha! To je ono :) Teď už vše funguje naprosto bez problému ;)
Děkuju!