Přepnutí uživatele w10

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

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

[zeus]

Jde a dokonce i jen s prostredky ve Win jiz obsazenymi (taskkill, shutdown, prip. cscript). Soubor z Excelu potrebujes ulozit?

[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

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

[Jsimi]

Díky, funguje

[Uziv00]

není zač, od toho tu jsme
Označ tedy téma jako vyřešené (zelené zatržítko).