pozdravljeni,
z makrom bi rad zaprl zvezek po preteku določenega časa
poizkusil sem s:
Application.OnTime Now TimeValue("00:01:00")
ActiveWorkbook.Save
Application.Quit
seveda, nekaj tu ne štima, maprošam vas, da mi
pomagate rešiti problem.
za pomoč se zahvaljujem.
lp
čacovno zapiranje zvezka
Re: čacovno zapiranje zvezka
Počakajte malo... tako vam pa res ne more delovati. S funkcijo OnTime, vi samo sprožite štoparico in od tam dalje se koda normalno izvaja. Ko pa preteče dovolj čase pa se štoparica sproži in izvede funkcijo, ki naj bi jo izvedla. Koda, ki izvede kar želite vi, je torej takšnale:
Vi izvedete funkcijo ZacniPostopekUstavitve in po 10 sekundah se bo zvezek zaprl - oz natančneje - čez 10 sekund se bo izvedla funkcija Ustavi, ki bo zvezek zaprla.
Koda: Izberi vse
Sub ZacniPostopekUstavitve()
Application.OnTime Now + TimeSerial(0, 0, 10), "Ustavi"
End Sub
Sub Ustavi()
ActiveWorkbook.Save
Application.Quit
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: čacovno zapiranje zvezka
seveda Matjaž,
povsem prav imate,....storil sem sedaj tako, le
Application.OnTime Now + TimeSerial(0, 0, 10), "Ustavi" sem
pripel v Private Sub Workbook_Open()
najlepša hvala,
lp
povsem prav imate,....storil sem sedaj tako, le
Application.OnTime Now + TimeSerial(0, 0, 10), "Ustavi" sem
pripel v Private Sub Workbook_Open()
najlepša hvala,
lp