MS Excel

Ahoj,

potřeboval bych vytvořit makro, které zapíše jméno uživatele a čas, který naposledy uložil (změnil) sešit. Sešit je pod heslem, takže nepotřebuju hlídat, jestli a co se v sešitu změnilo.
Pokud jej chce někdo editovat, musí zadat heslo.
Vymslel jsem si tohle:
JmenoUzivatele = Environ("USERNAME")

Range("D5") = "Poslední změna: " & JmenoUzivatele & " |" & Format$(Now, " dd/mm/yyyy | hh:mm:ss")

To splní mou funkci, ale jen při spušetí přes tlačítko.
Existuje funkce, která by to makro spustila při/před uložením při kliknutí na tlačítko uložit?

Zaslat odpověď >

elninoslov(19.2.2016 21:14)#030243

Áno je to udalosť zošitu (nie listu):
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)citovat

Filipsv(19.2.2016 21:32)#030244

Funguje, perfektní, díky!citovat

Opičák(19.2.2016 22:18)#030245

Já pro tyto účely používám zápis do registru. Mnozí jsou při představě zápisu do registru na mrtvici, ale není pro to opodstatnění.
V registru se vytvoří nová složka, kde se zapisuje a následně při otevření čte.

pokud se chcete podívat kam se to zapíše, pak stačí otevřít REGEDIT a najít adresář: HKEY_CURRENT_USER > SOFTWARE > VB and VBA Program Settings > POKUS

Většina uživatelů toto místo nenajde, takže jej nemůže modifikovat.

Pokud to chcete vyzkoušet, uložte soubor a znovu jej načtěte. Při každém otevření souboru se zobrazí hláška. Navíc v aktuálním adresáři se vytváří txt soubor se jménem "použití.txt", kde je celá historie otevírání souboru.

Příloha: zip