• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Automatický refresh a uložení

Zaslal/a sabaot 31.3.2012 17:25

zdravím,
potřeboval bych zkontrolovat a poradit s tímto makrem.

Makro je funkční a vypadá že je vše OK, nastavím čas na 30min, ale po nějakém čase (mám vypozorováno cca za 3-4hodiny) se to začne z nějakého důvodu refreshovat a ukládat pořád dokolečka :(

Workbook:

Private Sub Workbook_Open()
Call cas
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ukladani
End Sub


Modul:

Public vartimer As Variant
Const TimeOut = 15 'zde si nastavte po kolika minutách se má dokument uložit

Sub refresh()

ActiveWorkbook.RefreshAll
Call cas
End Sub

Sub ulozime()

ActiveWorkbook.Save
Call cas
End Sub

Sub cas()
vartimer = Format(Now + TimeSerial(0, TimeOut, 0), "hh:mm:ss")
If vartimer = "" Then Exit Sub
Application.OnTime TimeValue(vartimer), "refresh"
Application.OnTime TimeValue(vartimer), "ulozime"
End Sub

Sub ukladani()
On Error Resume Next
Application.OnTime earliesttime:=vartimer, _
procedure:="ulozime", schedule:=False
On Error GoTo 0
End Sub

Zaslat odpověď >

---

sabaot(2.4.2012 15:53)#007879

tak mám tu jeden poznatek, zdá se, že to "po nějakém čase" není samovolnou činností, ale že ten sešit otevře ještě někdo jiný jen pro čtení.citovat

sabaot(11.4.2012 16:05)#007990

je možné, aby otevření stejného sešitu jen pro čtení v jiném PC vynulovalo vartimer???

opravdu se nenajde nikdo, kdo by poradil??citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse