Stránka 1 z 1

Přepnutí uživatele w10

Napsal: 14 úno 2023 11:56
od Jsimi
Zdravím,
Lze vytvořit zástupce, případně skript pomocí kterého přepnu uživatele /uzamknu účet/ ve windows 10 a který by zároveň ukončil vybrané spuštěné programy? Jde mi hlavně o excel.
Děkuji za radu.

Re: Přepnutí uživatele w10

Napsal: 14 úno 2023 12:21
od Uziv00
Rozmysli se co chceš. přepnout uživatele je něco jiného, než uzamknout účet.
Pomocí vbs by asi šlo ukončit excel a odeslat zkratku Win+L pro uzamčení obrazovky. Jen podotýkám, že vbs umí metodu terminate => veškerá neuložená práce v excelu bude ztracená.

Re: Přepnutí uživatele w10

Napsal: 14 úno 2023 12:27
od zeus
Jde a dokonce i jen s prostredky ve Win jiz obsazenymi (taskkill, shutdown, prip. cscript). Soubor z Excelu potrebujes ulozit?

Re: Přepnutí uživatele w10

Napsal: 14 úno 2023 12:38
od Jsimi
Jde o firemní PC. Jde o to aby se mohl přihlásit jiný uživatel a já se nemusel úplně odhlašovat. V excelu mám modul který před zavřením sešitu vše uloží, aby mohl případně jiný uživatel do stejného souboru excel.

Sub Auto_Close()
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
End Sub

Re: Přepnutí uživatele w10

Napsal: 14 úno 2023 13:27
od Uziv00
To je makro, které se spustí při uzavření excelu. Nespustí se při killnutí aplikace, jak jsem psal výše.
Ale šlo by to přes objekt excel.application.

Dodatečně přidáno po 27 minutách 28 vteřinách:
Tak tady to je:

Kód: Vybrat vše

'**********************************************
'*   Skript uloží a uzavře excel soubor       *
'*         a uzamkne počítač                  *
'**********************************************
'*       Vytvořeno pro PC-HELP!               *
'*    ITCrowd&Script v. 1.0 (c) 02/2023       *
'**********************************************

Option Explicit
Dim objXl, shell

Set objXl = GetObject(, "Excel.Application")
objXl.Workbooks("Pokus.xlsx").Save
objXl.Workbooks("Pokus.xlsx").Close
Set objXl = Nothing

Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "rundll32.exe user32.dll,LockWorkStation",1,false
Set shell = Nothing


Kód zkopíruj do notepadu a ulož jako jmeno.vbs. Místo jmeno si ho pojmenuj jak chceš. Přípona .vbs musí být zachována. Spustíš poklepáním.
Pokus.xlsx nahraď skutečným jménem excelovského souboru, který potřebuješ uzavřít.
Skript zařídí uložení souboru, a poté excel ukončí.
Potom uzamkne počítač.
Pokud chceš jinou ikonu, pak soubor ulož někam jinam než na plochu a na ploše k němu vytvoř zástupce. Pro zástupce pak může být ikona jakákoli.

Re: Přepnutí uživatele w10

Napsal: 14 úno 2023 17:58
od Jsimi
Díky, funguje

Re: Přepnutí uživatele w10  Vyřešeno

Napsal: 14 úno 2023 18:41
od Uziv00
není zač, od toho tu jsme :-)
Označ tedy téma jako vyřešené (zelené zatržítko).