Vzdejte to.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: Ošetření souboru proti použití
nemůžu se pohnout dopředu. je to už pro mě moc vysoká matematika.nedokážu to použít. Počítače máme pouze ve skupině nejsme v domeně a soubor spouštíme z nasdíleného adresáře na lokálních PC.
citovat
Krásná teorie. V praxi k ničemu.citovat
MS Excel
Téma: Ošetření souboru proti použití 
Zaslal/a Scraper 2.1.2019 13:53
Ahoj ,přeji štěstí ,zdraví a mnoho dalších dobrých řešení se kterým tak pomáháte.
Dotaz : lze nějak ošetřit sešit aby ho nešlo otevřít např. mimo podnikovou sít nebo jen na vyjmenovaných počítačích.
Zatím to řeším dotazem na umístění souboru v adresáři na síťovém disku , zda existuje složka ze které je spouštěn.Pokud není spuštěn z tohoto adresáře tak se listy uzamknou.
Myslel jsem zda je možnost dotazu pomocí VBA třeba na bránu sítě nebo jmeno PC.
díky Stana V. 
(2.1.2019 17:30)#042292
Zatím nevzdávámmmm .
Zkouším pomocí Environ$("USERNAME")
vytvořit podmínku pro vyjmenované - povolené uživatele nebo počítače.
Pohodlnější by to bylo kdybych dokázal ověřit sít ( bránu) . Nemusel bych vyjmenovávat uživatele.
Díky a zatím bojuju.
SVcitovat
Zkouším pomocí Environ$("USERNAME")
vytvořit podmínku pro vyjmenované - povolené uživatele nebo počítače.
Pohodlnější by to bylo kdybych dokázal ověřit sít ( bránu) . Nemusel bych vyjmenovávat uživatele.
Díky a zatím bojuju.
SVcitovat
(3.1.2019 10:36)#042302
' Get the domain string ("dc=domain, dc=local")
Dim strDomain As String
strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")citovat
Dim strDomain As String
strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")citovat
Barth napsal/a:
' Get the domain string ("dc=domain, dc=local")
Dim strDomain As String
strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")
nemůžu se pohnout dopředu. je to už pro mě moc vysoká matematika.nedokážu to použít. Počítače máme pouze ve skupině nejsme v domeně a soubor spouštíme z nasdíleného adresáře na lokálních PC.
citovat(3.1.2019 20:27)#042310
Pokud existuje místo na síťovém disku, kam dohlédnou pouze vybraní uživatelé, pak se mi řešení jeví poměrně snadné. Na takovém místě stačí založit maličký soubor s libovolným obsahem. Listy sešitu s citlivým obsahem by měly být při uložení ve stavu "VeryHidden" (alespoň jeden list ale musí zůstat viditelný).
Při otevření sešitu by měla procedura Worksheet_Open pokusit zavolat výše uvedený kontrolní soubor. Pokud se soubor najde, lze skryté listy zviditelnit. Když se nenajde, mělo by dojít k uzavření citlivého sešitu, protože byl otevřen z místa, odkud nelze kontrolní soubor zavolat. Při pokusu otevřít sešit bez maker, nedojde ke zviditelnění skrytých listů. VBA projekt citlivého sešitu by měl být zamčený s heslem.citovat
Při otevření sešitu by měla procedura Worksheet_Open pokusit zavolat výše uvedený kontrolní soubor. Pokud se soubor najde, lze skryté listy zviditelnit. Když se nenajde, mělo by dojít k uzavření citlivého sešitu, protože byl otevřen z místa, odkud nelze kontrolní soubor zavolat. Při pokusu otevřít sešit bez maker, nedojde ke zviditelnění skrytých listů. VBA projekt citlivého sešitu by měl být zamčený s heslem.citovat
(3.1.2019 21:31)#042311
teta napsal/a:
Pokud existuje místo na síťovém disku, kam dohlédnou pouze vybraní uživatelé, pak se mi řešení jeví poměrně snadné. Na takovém místě stačí založit maličký soubor s libovolným obsahem. Listy sešitu s citlivým obsahem by měly být při uložení ve stavu "VeryHidden" (alespoň jeden list ale musí zůstat viditelný).
Při otevření sešitu by měla procedura Worksheet_Open pokusit zavolat výše uvedený kontrolní soubor. Pokud se soubor najde, lze skryté listy zviditelnit. Když se nenajde, mělo by dojít k uzavření citlivého sešitu, protože byl otevřen z místa, odkud nelze kontrolní soubor zavolat. Při pokusu otevřít sešit bez maker, nedojde ke zviditelnění skrytých listů. VBA projekt citlivého sešitu by měl být zamčený s heslem.
Krásná teorie. V praxi k ničemu.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