Byla by možnost pomocí makra, které před uložením sešitu vloží aktuální datum (čas) do předem určené buňky.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: DATUM POSLEDNIHO ULOŽENÍ(AKTUALIZACE)
Workbook_BeforeSavecitovat
V makre od opičáka vymeň(uprav) prvý riadok.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
A všetky "otevřeno" nahraď za "uloženo"citovat
MS Excel
Téma: DATUM POSLEDNIHO ULOŽENÍ(AKTUALIZACE) 
Zaslal/a taypy 26.11.2012 8:51
Ahoj.
Lze nějak v excelu zobrazit datum posledního uložení?
Jde mi o to když někdo danný list upraví a uloží ukáže se datum, další zaměstnanec na to koukne a vidí, že list je již dnes upraven(aktuální).Zatím si to hlídam přes vlastnosti dokumentu, ale je to zdlouhavé.. Předem děkuji za radu
zapiš do Thisworkbook:
Private Sub workbook_open()
čítač = GetSetting("POKUS", "rozpočet", "počet", 0)
otevřenoposledně = GetSetting("POKUS", "rozpočet", "Otevřeno", "")
Msg = " Tento sešit byl zde otevřen " & čítač & " krát."
Msg = Msg & vbCrLf & " Posledně otevřeno: " & otevřenoposledně
MsgBox Msg, vbInformation, ThisWorkbook.Name
čítač = čítač + 1
otevřenoposledně = Date & " " & Time
SaveSetting "POKUS", "rozpočet", "počet", čítač
SaveSetting "POKUS", "rozpočet", "otevřeno", otevřenoposledně
Open ThisWorkbook.Path & "\použiti.log" For Append As #1
Print #1, Application.UserName, Now
Close #1
Application.DisplayFullScreen = False
End Subcitovat
Private Sub workbook_open()
čítač = GetSetting("POKUS", "rozpočet", "počet", 0)
otevřenoposledně = GetSetting("POKUS", "rozpočet", "Otevřeno", "")
Msg = " Tento sešit byl zde otevřen " & čítač & " krát."
Msg = Msg & vbCrLf & " Posledně otevřeno: " & otevřenoposledně
MsgBox Msg, vbInformation, ThisWorkbook.Name
čítač = čítač + 1
otevřenoposledně = Date & " " & Time
SaveSetting "POKUS", "rozpočet", "počet", čítač
SaveSetting "POKUS", "rozpočet", "otevřeno", otevřenoposledně
Open ThisWorkbook.Path & "\použiti.log" For Append As #1
Print #1, Application.UserName, Now
Close #1
Application.DisplayFullScreen = False
End Subcitovat
V souboru "použití.log" (vytvoří se automaticky ve stejném adresáři) máš pak přehled kdo a kdy se v tom hrabal 
citovat
citovatDobrý den,
řešení od opičáka defakto ukládá do log souboru veškeré otevření souboru (i bez jakékoli editace). Poradí někdo prosím, jak to udělat, aby se do logu zapisovaly jen údaje (čas + datum + jméno příslušného uživatele) pouze v případě skutečné editace?
díky za feedbackcitovat
řešení od opičáka defakto ukládá do log souboru veškeré otevření souboru (i bez jakékoli editace). Poradí někdo prosím, jak to udělat, aby se do logu zapisovaly jen údaje (čas + datum + jméno příslušného uživatele) pouze v případě skutečné editace?
díky za feedbackcitovat
Imh0tep napsal/a:
Dobrý den,
řešení od opičáka defakto ukládá do log souboru veškeré otevření souboru (i bez jakékoli editace). Poradí někdo prosím, jak to udělat, aby se do logu zapisovaly jen údaje (čas + datum + jméno příslušného uživatele) pouze v případě skutečné editace?
díky za feedback
Workbook_BeforeSavecitovat
(27.11.2019 13:24)#045092
Mne by to také docela zajímalo, ale potřeboval bych pomoc nebo dovysvětlit odpověď marjanka.
Děkujicitovat
Děkujicitovat
Zabak21 napsal/a:
Mne by to také docela zajímalo, ale potřeboval bych pomoc nebo dovysvětlit odpověď marjanka.
Děkuji
V makre od opičáka vymeň(uprav) prvý riadok.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
A všetky "otevřeno" nahraď za "uloženo"citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články