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.