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

[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

[Reklama]

[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

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

[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é.

[dern]

Zdravím,
přesně takhle to bylo v plánu.
Takže díky moc za velkou pomoc.
Díky!