čacovno zapiranje zvezka

Pomoč pri izdelavi makrov
Odgovori
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

čacovno zapiranje zvezka

Odgovor Napisal/-a luka_k »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: čacovno zapiranje zvezka

Odgovor Napisal/-a admin »

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:

Koda: Izberi vse

Sub ZacniPostopekUstavitve()
  Application.OnTime Now + TimeSerial(0, 0, 10), "Ustavi"
End Sub

Sub Ustavi()
  ActiveWorkbook.Save
  Application.Quit
End Sub
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.
lp,
Matjaž Prtenjak
Administrator
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

Re: čacovno zapiranje zvezka

Odgovor Napisal/-a luka_k »

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
Odgovori