Excel (makro) - informace o uložení Vyřešeno
Excel (makro) - informace o uložení
Makro, které by do určené buňky zaznamenalo informace o uživateli, který v dané buňce provedl změny.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel (makro) - informace o uložení
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:
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
Re: Excel (makro) - informace o uložení
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.
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.
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel (makro) - informace o uložení
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.
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.
Re: Excel (makro) - informace o uložení
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ší.
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ší.
- Přílohy
-
- Evidence.xls
- (29.5 KiB) Staženo 119 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel (makro) - informace o uložení Vyřešeno
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 = ....
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 = ....
- Přílohy
-
- Evidence.xls
- (63.5 KiB) Staženo 234 x
Re: Excel (makro) - informace o uložení
Moc děkuji, to je přesně ono!
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1233
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 6711
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3501
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 3
- 2219
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 1
- 614
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti