dalo by sa to riesit eventom ked sa otvori dokument a potom len definovat uzivatelov pomocou:
Environ$("username")citovat
Environ$("username")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: Viditelnost listů dle uživatelů v síti
MS Excel
Téma: Viditelnost listů dle uživatelů v síti 
Zaslal/a kriz.pavel 10.1.2014 12:14
Dobrý den,
potřeboval bych poradit jak docílit viditelnosti konkrétních listů definovanými uživatele. Pro upřesnění vás uvedu do problému.
Mám report pro vedení společnosti, kde jsou na jednotlivých listech různá data a potřebuji, aby když sešit otevře konkrétní uživatel (dle lokální sítě jako u revize -> Povolit uživatelům úpravy oblastí, kde si vyhledám v síti uživatele) viděl jen listy, které si nadefinuji. Do reportu by mělo přístup jen pár manažerů vedení společnosti a ti by například pod heslem viděli reporty za své úseky, pak generální ředitel by viděl vše a další uživatelé by se do excelu ani nedostali.
Děkuji za rady (ideálně příklad) jak toto provést.
Děkuji za reakci, bohužel programování mě minulo, takže ve VBA neumím :( Dokážu si přes VBA nahrát nový modul s kódem a použít ho jako makro a samotný kód bohužel nenapíšu. Předpokládám že cesta "klikací" pře standardní část excelu asi nepovede :(citovat
no neviem ci ma taku moznost office ale je dost mozne ze to ma ... ja osobne o nej zatim nic neviem ale kludne sa neham poucit :)
tu som urobil to makro:
Private Sub Workbook_Open()
For x = 1 To Sheets.Count - 1
Sheets(x).Visible = False
Next
Select Case Environ$("username")
Case "Login1"
Sheets(1).Visible = True
Case "Login2"
Sheets(2).Visible = True
Case "Login3"
Sheets(3).Visible = True
Case "Login4"
Sheets(4).Visible = True
Case "Login5"
Sheets(5).Visible = True
End Select
End Sub
v makre treba este zamiesto login1,2,3,4 dopisat loginy userov a potom dopisat ktory slide sa ma odkryt
posledny slide je odkryty pre vsetkych tak preto tam je count - 1
- samozrejme dasato aj lepsie spravit len netusim vobec naco to potrebujete
priloha:
tu som urobil to makro:
Private Sub Workbook_Open()
For x = 1 To Sheets.Count - 1
Sheets(x).Visible = False
Next
Select Case Environ$("username")
Case "Login1"
Sheets(1).Visible = True
Case "Login2"
Sheets(2).Visible = True
Case "Login3"
Sheets(3).Visible = True
Case "Login4"
Sheets(4).Visible = True
Case "Login5"
Sheets(5).Visible = True
End Select
End Sub
v makre treba este zamiesto login1,2,3,4 dopisat loginy userov a potom dopisat ktory slide sa ma odkryt
posledny slide je odkryty pre vsetkych tak preto tam je count - 1
- samozrejme dasato aj lepsie spravit len netusim vobec naco to potrebujete
priloha:
Příloha: 
17168_test.zip (17kB, staženo 50x)
citovat17168_test.zip (17kB, staženo 50x)este som tam urobil makro na zistenie ID usera staci ho kliknut na pocitaci a vypise vam jeho ID namecitovat
Děkuji za uvedený soubor. Hodně pomohl :) Potřebuji to pro reporting pro vedení. Jednotlivá oddělení musí mít přístup k určitým reportům (listům), ale nesmí vidět reporty z jiných oddělení. Reporting je ale v jednom uceleném excelu. Když po spuštění spustím makro, tak se mi dle tvého návodu zviditelní listy které potřebuji. Problém ještě nastává v tom, že potřebuji zabezpečit, aby se neoprávněný uživatel nedostal do zbylých listů, tedy potřeboval bych sešit zamknout. Pak mi ale makro hlásí chybu. Napadlo mě zda to nejde obejít v kódu, případně jak v kódu nastavit skrytí listu jako "VeryHidden", že není vidět pokud si chce někdo list zobrazit. Pak bych ještě potřeboval, aby se mi makro spouštělo vždy a bez něj se excel ani neotevřel, ale to bude asi někde v nastavení excelu.
Díky :)citovat
Díky :)citovat
no a presne toto som potreboval pocut a preto vam navrhujem lepsiu metodu a aj istejsiu ako to riesit takto
najidealnejsie je si spravit makro ktore automaticky rozposle danemu uzivatelovi dany sheets
je to aj lahsie a aj bezpecnejsie ... lebo aj verryHiden keby ze sa naseru tak to aj tak uvidim :))
nechcete radsej makro na posielanie sheetov?citovat
najidealnejsie je si spravit makro ktore automaticky rozposle danemu uzivatelovi dany sheets
je to aj lahsie a aj bezpecnejsie ... lebo aj verryHiden keby ze sa naseru tak to aj tak uvidim :))
nechcete radsej makro na posielanie sheetov?citovat
Sheets(1).Visible=xlSheetVeryHidden
Sheets(1).Visible=xlSheetVisible
Sheets(1).Visible=xlSheetHiddencitovat
Sheets(1).Visible=xlSheetVisible
Sheets(1).Visible=xlSheetHiddencitovat
Palooo: Určitě bych byl rád a vyzkoušel, pokud píšete že to bude jednodušší.
Předem děkuji :)citovat
Předem děkuji :)citovat
Jednoduché řešení, které si budete moci obsluhovat sám:
Vytvořte každému manažerovi soubor a v něm kopii pouze tabulek, které má vidět. Tyto tabulky odkazujte na originály ve vámi obsluhovaném sešitě.
Je to bez maker, asi i nejspolehlivěji zabezpečené (pokud budete chtít heslovat, tak je obtížnější prolomit heslo v souboru než prolomit VBA - i když pochybuji, že by se o to manažeři snažili) a jak říkám, budete to umět sám.citovat
Vytvořte každému manažerovi soubor a v něm kopii pouze tabulek, které má vidět. Tyto tabulky odkazujte na originály ve vámi obsluhovaném sešitě.
Je to bez maker, asi i nejspolehlivěji zabezpečené (pokud budete chtít heslovat, tak je obtížnější prolomit heslo v souboru než prolomit VBA - i když pochybuji, že by se o to manažeři snažili) a jak říkám, budete to umět sám.citovat
eLCHa: O této variantě jako jediné vím a zatím to tak je řešené. Chtěl jsem to ale posunout kousek dál a třeba se něco nového naučit. V každém případě moc děkuji za reakci :)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