Stránka 1 z 1

Excel-VBA otevření sešitu po ověření PC

Napsal: 11 led 2013 13:53
od dern
Zdravím všechny,
potřeboval bych poradit s napsáním makra které by dovolilo otevřít sešit Excelu jen na konkrétních dvou PC ve firmě.
Pokud by si soubor někdo odnesl tak by ho neotevřel nebo otevřel bez maker ale nebyl by mu k ničemu.
Na firemních PC by se při uzavření souboru všechny listy skryly (very hidden) až na jeden neškodný. Při následném otevření (sám o sobě by byl soubor zaheslovaný) na jiném PC bez povolení maker by se ukázal jen ten neškodný list. Pokud by byla makra povolena došlo by k ověření zda se jedná o daný firemní PC a pokud ano dojde k zobrazení listů a pokud ne tak se sešit zavře.

Uměl by si s tím někdo poradit? Věřím že by se to hodilo nejen mně.
Děkuju předem za názory a pomoc.
Dern

Re: Excel-VBA otevření sešitu po ověření PC

Napsal: 11 led 2013 14:48
od cmuch
Pro toto by se dala použít fce VBA Environ(COMPU­TERNAME)

Kód: Vybrat vše

Sub PCName()
Dim NamePC As Variant

 NamePC = Environ("COMPUTERNAME")
       
End Sub

Re: Excel-VBA otevření sešitu po ověření PC

Napsal: 11 led 2013 17:41
od dern
takže by byla možná konstrukce

Kód: Vybrat vše

If InStr(1, Environ("COMPUTERNAME"), "jmeno_pocitace") > 0 Then
  List2.Visible = xlSheetVisible
End If


v případě, že by se jméno počítače shodovalo s předem zadaným tak by došlo k zobrazení skrytého listu.
Nemá to někde ještě nějakou slabinu? A ještě by se to mělo při zavírání skrýt.
Zatím díky za vodítko...

Re: Excel-VBA otevření sešitu po ověření PC

Napsal: 17 led 2013 19:02
od cmuch
Tady je sešit na ukázku pro zobrazení listů.
Listy se zobrazí když bude souhlasit název PC s tím co je zadán v podmínce makra.

Takže se nelekat, když bude zobrazen jen jeden list po povolení maker.
Přes Alt+F11 změnit jména PC co tam jsou přednastavené a potom sešit uložit!

Listy se skryjí když se sešit zavře.

A hlavně nezapomenout zamknout VBA aby to bylo pro běžného uživatele nepřekonatelné.

Re: Excel-VBA otevření sešitu po ověření PC  Vyřešeno

Napsal: 20 led 2013 14:50
od dern
Zdravím,
přesně takhle to bylo v plánu.
Takže díky moc za velkou pomoc.
Díky!