do eventu:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
End Sub
ale musi sa napisat do ThisWorkbookcitovat
Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
End Sub
ale musi sa napisat do ThisWorkbookcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: ulozenie zalohy - v akej udaosti
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
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 
a da sa aj nejako zistit ci subor uz bol ulozeny? nech nerobim zalohu z ulozeneho....citovat
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.
Posílám nějakou inspiraci.
Příloha: 
19995_orig.rar (23kB, staženo 29x)
citovat19995_orig.rar (23kB, staženo 29x)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
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
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
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
dakujem pani
dlhsie som tu nebol
skusim teda nieco zosmolit a dam vediet
este raz dik za reakciecitovat
dlhsie som tu nebol
skusim teda nieco zosmolit a dam vediet
este raz dik za reakciecitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články