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.
Přepnutí uživatele w10 Vyřešeno
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23629
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Přepnutí uživatele w10
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á.
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á.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
-
- Elite Level 10.5
- Příspěvky: 10943
- Registrován: únor 12
- Bydliště: Pankrac
- Pohlaví:
- Stav:
Offline
Re: Přepnutí uživatele w10
Jde a dokonce i jen s prostredky ve Win jiz obsazenymi (taskkill, shutdown, prip. cscript). Soubor z Excelu potrebujes ulozit?
Prazaci jo ty se maj, az kdyz si me zavolaj..
Re: Přepnutí uživatele w10
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
Sub Auto_Close()
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
End Sub
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23629
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Přepnutí uživatele w10
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 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.
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.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Re: Přepnutí uživatele w10
Díky, funguje
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23629
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Přepnutí uživatele w10 Vyřešeno
není zač, od toho tu jsme
Označ tedy téma jako vyřešené (zelené zatržítko).
Označ tedy téma jako vyřešené (zelené zatržítko).
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
odstranění automatického přepnutí na druhý monitor
od tominaxx » 19 črc 2023 15:36 » v Windows 11, 10, 8... - 5
- 1674
-
od tominaxx
Zobrazit poslední příspěvek
19 črc 2023 22:45
-
Zpět na “Windows 11, 10, 8...”
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 22 hostů