Excel (makro) - informace o uložení Vyřešeno

[kulenka]

Makro, které by do určené buňky zaznamenalo informace o uživateli, který v dané buňce provedl změny.

[Reklama]

[navstevnik]

Protoze neuvadis nic blizsiho, tak jen takto jednoduse:
Zmena v list1!A1 - udalostni procedura Worksheet_Change, zapis do vedlejsi bunky (list1!B1), vyber si jmeno bud podle OS nebo Excelu:

Kód: Vybrat vše

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Set Target = Target.Resize(1, 1)
  If Not Intersect(Target, Me.Range("a1")) Is Nothing Then
    Target.Offset(0, 1).Value = Application.UserName  ' z Excelu
    Target.Offset(0, 2).Value = Environ("UserName")  ' z OS Win
  End If
End Sub

[kulenka]

Moc děkuji, to je přesně ono, jen bych potřebovala ještě uvést čas uložení.

Mám tabulku v excelu, kterou bude vyplňovat více uživatelů a já bych potřebovala mít přehled o tom který uživatel a kdy provedl uložení, takže makro budu muset rozšířit na určitou oblast nebo vytvořit pro každou buňku v tabulce.

[navstevnik]

Opet jen vseobecny pozadavek.
Cas ulozeni: datum a cas nebo jen cas nebo jen datum? Ulozit spolecne s uzivatelem nebo do samostatne bunky? Kterou identifikaci - podle OS nebo Excelu?
Urceni oblasti menenych bunek!
Dale, kam ma byt ve vztahu k menene bunce (oblasti) ulozena pozadovana identifikace a casovy udaj informace?
Maji byt tyto informace zaznamenavany formou Eventlog - tedy do tabulky v casove posloupnosti (tedy nebude prepisovano pri nove zmene v konkretni bunce) bez moznosti zasahu uzivatelem (heslo, skryti listu s tabulkou)?
Priloz sesit s testovacimi daty.
Teprve pote bude mozno navrhnout jednoduche a stabilni reseni.

[kulenka]

Posílám ukázku, kde by se na listu Evidence zapisovaly požadované údaje a záznam o změně (zvlášť pro každou buňku) by byl na listu Info_o_ulozeni.
Identifikace podle Excelu a datum, čas v jedné buňce.
Podle ukázky by musely být přepisovány údaje na listu Info_o_ulozeni při každé změně.
Nevím, jak by to vypadalo, kdyby to bylo do tabulky v časové posloupnosti - možná by tato možnost byla lepší.

[navstevnik]

V priloze je sesit doplneny o pozadovanou evidenci.
Na listu Info_o_ulozeni jsou ukladany pozadovane udaje.
Je pridan list EventLog, na kterem jsou ukladany udaje v casove posloupnosti.
Oba listy jsou po otevreni sesitu skryty - VeryHidden.
Pro jejich zobrazeni je potreba zavolat proceduru AccessToWshts (nabidka Nastroje>Makro>Makra>vybrat a spustit; lze priradit klavesovou zkratku) a zadat heslo, listy jsou zobrazeny. Taktez je uzamknut heslem projekt VBA.

Obe vlozena hesla jsou MyPsw a je potreba je zmenit v procedurach VBA za vlastni hesla:
Projekt VBA: Alt+F11>vybrat VBAProject(Evidence.xls) a dvojklik, zadat heslo, OK; nabidka Tools>VBAProject Properties>karta Protection>vlozit nova hesla
Procedura Module1 - Sub AccessToWshts v radku: If Heslo = ....

[kulenka]

Moc děkuji, to je přesně ono!