Jste zde: Úvodní stránka » excel » vba-soubory » excel-vba-kdo-pristupuje-do-souboru

Kdo přistupuje do souboru - Excel VBA

Úvodem

Cílem je vytvořit makro, které do listu (neviditelného) bude zapisovat, kdo přistupuje do tohoto souboru. Takto zněl zajímavý emailový dotaz. VBA kód jsem upravil, aby zapisoval nejen kdo přistupuje (otvírá) soubor, ale také kdy jej otvírá :).

Co tedy bude makro provádět? Pokud někdo otevře náš Excelovský soubor uloží se do skrytého listu jeho jméno (UserName) a čas, kdy tento soubor otevřel.

Využití zneužití :)

Následující kód se dá využít ke zjištění jak oblíbené jsou některé naše Excelovské soubory. Případně monitorovat zda pracovníci opravdu se souborem pracují.

VBA Kód

Předpokladem je list s názvem tajny.

Private Sub Workbook_Open() Dim PrazdnyRadek As Long ' prvni prazdny radek PrazdnyRadek = Worksheets("tajny").Cells.SpecialCells(xlCellTypeLastCell).Row + 1 ' zapiseme kdo Worksheets("tajny").Cells(PrazdnyRadek, 1) = Application.UserName ' zapiseme kdy Worksheets("tajny").Cells(PrazdnyRadek, 2) = Now ' tajny list skryt Worksheets("tajny").Visible = xlSheetHiden ' ulozit ThisWorkbook.Save End Sub

Poznámka: V MS Excelu musí být povolena makra.

Vylepšení

Pokud je nastavena v VBA vlastnost listu tajny na VeryHiden, nepodaří se nám tento list zobrazit klasicky v Excelu, musí se otevřít VBA

Worksheets("tajny").Visible = xlSheetVeryHiden

Formátování data

Můžeme nastavit lepší formátování data, třeba doplnit o sekundy.

Více informací o tom jak na to, je předmětem jiného článku.

Ke stažení

Prezentovaná příklad zdarma ke stažení: Kdo přistupuje do souboru - soubor obsahuje makra.

Článek byl aktualizován: 28.01.2012 20:15

---

---

Další články k tématu

• Zpracovatelné formáty souborů v Excelu
• Existuje soubor - adresář (složka)
• Vypis cesty k souboru
• Vypsat adresáře - soubory
• Je soubor otevřen
• Otevřít soubor s heslem
• Otevřít soubor a předat mu nějaký parametr
• Tisk do *.pdf
• Smazat soubor
• Vytvořit smazat adresář
• Kopírovat a přejmenovávat soubory
• Omezení platnosti souboru - dokumentu
• Kdo přistupuje do souboru - právě čtete
• Velikost souboru
• Je atribut souboru pouze pro čtení - VBA Excel

Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.

Nejnovější článek

Nejčtenější článek