< návrat zpět

MS Excel


Téma: DATUM POSLEDNIHO ULOŽENÍ(AKTUALIZACE) rss

Zaslal/a 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

Zaslat odpověď >

#010421
Stalker
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
#010423
Opičák
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
icon #010426
avatar
Debug.Print ActiveWorkbook.BuiltinDocumentProperties(12)citovat
#010428
Opičák
V souboru "použití.log" (vytvoří se automaticky ve stejném adresáři) máš pak přehled kdo a kdy se v tom hrabal 1citovat
icon #010429
avatar
@ opičák: slušné :)citovat
#045049
avatar
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 feedbackcitovat
#045052
avatar

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
#045092
avatar
Mne by to také docela zajímalo, ale potřeboval bych pomoc nebo dovysvětlit odpověď marjanka.

Děkujicitovat
#045095
avatar

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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse