Microsoft Excel 2007 -makro na zobrazení času a uložení

ad 2.

Sub Tlacitko()
    '
    'Do pole A1 vlozi datum a ulozi dokument
    '
    Range("a1").Value = Now()
    ActiveWorkbook.Save
End Sub

ad 1.

Public Start As Date

Private Sub Workbook_Open()
    
    Start = Now()
    Range("A2").Value = Start
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("A3").Value = Now() - Start
    ActiveWorkbook.Save
End Sub

Podotýkám, že do pole A2 se vloží čas startu (lze odstranit, pokud nepotřebuješ), do pole A3 se pak vkládá doba posledního otevření. Pokud jsi to chtěl tak, aby se počítala doba "od začátku existence sešitu", musel bys nadefinovat/inicializovat (ručně spustit) pro první běh globální proměnnou Start a výpočet pro A3 by byl (zaměň v původním kódu):

Range("A3").Value = Range("A3").Value + Now() - Start

1).

Děkuji za pomoc, oboje funguje. Vyřešeno