Re: Autosave add-in pro Excel 2003

> Napadlo mne, zda by bylo mozne i nejake makro s nastavenim v minutovych
> intervalech, nejlepe s Msg boxem autosave ano/ne.
>
> Jako ze co treba pet minut se objevi hlaseni "Autosave?" a po odkliknuti ano
> se ulozilo.
>
> Nebo jeste lepe mam tu jedno upravene makro na ukladani, ktere znemoznuje
> ulozeni sesitu s vice oznacenymi listy, cili aby toto makro se spoustelo v
> nastavitelnem cyklu s dotazem pred spustenim.
>
> Takze hlaska "Spustit makro xxx ?" a po stisknuti ano spustit makro.
>
> Jde neco takoveho?

Ahoj po minutě hláška bude děsně otravovat, ale budiž

Viděl bych to na něco takovýho:

Sub otazka()
    If ThisWorkbook.Saved Then   ' když nemáme uloženo napiš otázku
        If MsgBox("Uložit soubor", vbYesNo) = vbYes Then
            MsgBox "procedura_uloz"  ' tady si strč svoji ukládací proceduru
        End If
    End If
    cas
End Sub

Sub cas()
    Application.OnTime Now + TimeValue("00:01:00"), "otazka"
End Sub

Startuje se to tak, že si zavoláš poprvé proceduru cas a pak to každou
minutu volá sub otazka, ktera vola zase po skonceni cas..

-- 
Cao,
 Kamil