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!