< návrat zpět

MS Excel

Téma: Ošetření souboru proti použití rss

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. 1

Zaslat odpověď >
Darbujan(2.1.2019 17:30)#042292
avatar
Vzdejte to.citovat
Scraper(2.1.2019 17:48)#042293
avatar
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
Barth(3.1.2019 10:36)#042302
avatar
' Get the domain string ("dc=domain, dc=local")
Dim strDomain As String
strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")citovat
Scraper(3.1.2019 17:12)#042309
avatar

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. 7 7citovat
teta(3.1.2019 20:27)#042310
avatar
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
Darbujan(3.1.2019 21:31)#042311
avatar

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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 24.4. 16:32

Relativní cesta - zdroje Power Query

Alfan • 24.4. 15:44

Relativní cesta - zdroje Power Query

elninoslov • 24.4. 14:26

Jak odstraním duplicitní údaje

Mirek8 • 24.4. 12:13

Jak odstraním duplicitní údaje

elninoslov • 24.4. 8:57

Vyhledej

PavDD • 24.4. 8:56

Vyhledej

elninoslov • 24.4. 8:47