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

MS Excel

Téma: ulozenie zalohy - v akej udaosti

Zaslal/a misocko 13.6.2014 16:27

ahojte
riesim momentalne jednu vec s ukladanim zalohy. ide o to ze mam jeden subor v ktorom robim zmeny a obcas ich chcem ulozit , obcas nie (a samozrejme sa mi obcas stane ze som to mal ulozit a neulozim - mam otvorenych viacero suborov a pri zatvarani celeho excelu to nechtiac neulozim). chcel by som si teda ulozit zalohu zakazdym ked zatvaram ten moj kriticky subor bez ulozenia (chcem aby po tejto akcii ostal ten origo bez zmien, zaloha aby bola so zmenami, excel zatvoreny). viete mi poradit cez aku udalost by som to mal skusit? makra viem (kod si teda napisem, pripadne upravim) potrebujem len nakopnutie
vopred velmi pekne dakujem

Zaslat odpověď >

---

Palooo(13.6.2014 16:35)#019981

do eventu:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
End Sub

ale musi sa napisat do ThisWorkbookcitovat

misocko(13.6.2014 23:15)#019986

a da sa aj nejako zistit ci subor uz bol ulozeny? nech nerobim zalohu z ulozeneho....citovat

kp57(15.6.2014 19:42)#019995

Nevím jestli je nějaká Fce, která by zjistila zda od uložení sešitu byly provedeny nějaké změny. Dalo by se zaznamenat pomocí "Workbook_SheetChange".
Posílám nějakou inspiraci.

Příloha: 19995_orig.rar (23kB, staženo 29x)

citovat

marjankaj(15.6.2014 20:47)#019997

A čo tak Workbook_BeforeSave?citovat

kp57(15.6.2014 20:51)#019998

A jak zjistím v Workbook_BeforeSave, že byl sešit změněn?citovat

kp57(15.6.2014 21:49)#019999

Vlastně máš pravdu. Pokud nejsou žádné změny v sešitě, tak se při zavírání nepokouší uložit. To znamená, že stačí v Workbook_BeforeSave otázka zda uložit Origo, nebo Zálohu a Workbook_BeforeClose vůbec neřešit. To znamená ani Workbook_SheetChange.citovat

marjankaj(16.6.2014 7:39)#020001

misocko napsal/a:

a da sa aj nejako zistit ci subor uz bol ulozeny? nech nerobim zalohu z ulozeneho....

No šlo by to. Našiel som niečo takéto.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Me.Saved Then
msg = "Chcete uložiť prevedené zmeny?"
odp = MsgBox(msg, vbQuestion + vbYesNoCancel)
Select Case odp
Case vbYes
Me.Save
Case vbNo
Me.Saved = True
Case vbCancel
Cancel = True
Exit Sub
End Select
EndIf
End Subcitovat

eLCHa(16.6.2014 8:00)#020002

a da sa aj nejako zistit ci subor uz bol ulozeny? nech nerobim zalohu z ulozeneho....

Ano dá - pokud je hodnotaThisWorkbook.Saved = FalseV tomto případě se spustí událost BeforeSave.

Pokud víte už při otevírání sešitu, že změny chcete uložit, otevřete ho pro zápis, pokud nebudete ukládat, pro čtení. Dá se nastavit, aby se Vás excel při každém otevření sešitu ptal, jestli jej chcete otevřít pouze pro čtení.
Potom v události BeforeClose zjistíte, zda je pouze pro čtení a uložíte pomocí SaveAs.citovat

misocko(18.6.2014 16:00)#020048

dakujem pani
dlhsie som tu nebol
skusim teda nieco zosmolit a dam vediet
este raz dik za reakciecitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse