PC-HELP.CZ

Zdravím,
pokouším se napsat makro, které se po několika minutách od otevření souboru zeptá a případně uloží změny a ukončí excel

zatím mi s pomocí tohoto fóra vyšlo toto:

Sub Ukonci10min()
Application.OnTime Now + TimeValue("00:10:00"), "Konec"
End Sub

Sub Konec()

If MsgBox("Opravdu ještě potřebujete pracovat v tomto souboru?", vbYesNo, "") <> vbNo Then Exit Sub

ChDir "C:\test"
ActiveWorkbook.SaveAs Filename:= _
"C:\test\test.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Dim strClsExl As String
strClsExl = "TASKKILL /F /IM Excel.exe"
Shell strClsExl, vbHide

End Sub

Ale mám tam chybu, ať vyberu yes nebo no, vždy se mi uloží a zavře ..

prosím o radu

Na to bych použila Select case

díky, upravil jsem to následujícím způsobem:

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:00:30"), "Konec"

End Sub


Sub Konec()

dotaz = MsgBox("Opravdu ještě potřebujete pracovat v tomto souboru?", vbYesNo, "")
Select Case dotaz
Case vbYes
Exit Sub
Case vbNo
End Select

ActiveWorkbook.SaveAs Filename:= _
"C:\test\test.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Dim strClsExl As String
strClsExl = "TASKKILL /F /IM Excel.exe"
Shell strClsExl, vbHide

End Sub


Když makro spustím ručně, tak zafunguje.
Ale samo se mi nespustí ...
Po otevření souboru se excel ptá zda obnovit poškozený soubor ...

v čem jsem to zas udělal špatně?

Ten soubor se bude ukládat na stejné místo kde se otevírá? Resp. pokud se název a umístění nebude měnit, tak místo ActiveWorkbook.SaveAs a vše co je pod tím bych nahradila následujícím:

Jakou máte verzi Office?

Soubor se ukládá do stejného místa, office mám 2010 a v angličtině - na to prostě nestačím

To makru bude vypadat následovně:


V tom vašem makru ukládáte soubor do staršího formátu a tím to možná dělá tu chybu. Vyzkoušejte co jsem napsala, teď už by to mělo fungovat.

Děkuju, opravil jsem to, ale pro změnu dostanu hned hlášku, že nemám povolená makra ...
Soubor je uložen jako Excel Makro-Enabled Workbook.
ostatní makra mi standardně fungují ...

asi se na to už vykašlu

řešení se našlo ... a bylo velmi jednoduché ...

stačilo přesunout proceduru Konec() z ThisWorkbook do Modulu1

Teď se ještě pokouším doladit detaily ...

Krok 1. - dotaz zda je potřeba pracovat v souboru (Ano / Ne)
Krok 2 - Ano - opět čeká 10 minut následuje krok 1
Krok 3 - Ne - dotaz Uložit (ano/Ne)
Krok 4 - Ano - uložit, exit
Krok 5 - Ne - exit

zatím se mi soubor ukládá stále ...
prosím, v čem zas mám chybu ...?

prosím, máte někdo řešení? já ho stále nenašel

Mrkla jsem na ten kód a máte tam zpřeházených pár řádků. Taky bych tam přidala kontrolu změn v sešitu aby se přesně každých 10minut neukazovala tabulka zda chci ještě pokračovat v práci když stále pracuji.

Ukládá se to proto, že ukládání je úplně na konci makra neošetřeno což proběhne vždy. To jsou ty zpřeházené řádky.
Nastavte si proměnnou cas podle toho za jak dlouho se má dotaz ukázat, pro ladění tam je 10sec. Po každé změně v sešitu se resetuje Timer a pak se zobrazení dotazu oddálí o daný časový úsek.
Makra budou vypadat následovně:
Module:

Předpokládám, že s proměnnou EditDate se bude dál pracovat, tak jsem ji tam nechala

Kontrola používání sešitu v ThisWorkbook