Mitenkä onnistuisi sellainen versiointi tallennus, että työkirjasta jäisi talteen viisi viimeiseksi tallennettua tyyliin MunTaulukko-hh-mm.xls? Eli versiot erottaisi toisistaan nimeen lisätyn kellonajan mukaan (tai vaikka juokseva nrointi)? Eikä se nyt pahasti haittais vaikka tallentuisi enemmänkin versiota, mutta varmaankin viis viimeisintä aina riittäisi.
Versiointi/ välitallennus
Varmasti talteen vaiheet
1
357
Vastaukset
tolla nyt alkuun. Muuta polku ja tiedostonnimi itsellesi sopivaksija muista tehda tallennuskansio polku osoitteeseen.
ThisWorkbook moduuliin...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Const Polku = "C:\Varmuuskopiot\"
Dim Tiedostonnimi As String
Dim Laskuri As Long
Dim JoTallennettu As Boolean
On Error Resume Next
Application.EnableEvents = False
Laskuri = 1
Do
Tiedostonnimi = Polku & "MunTaulukko-" & Format(Laskuri, "0000") & ".xls"
JoTallennettu = Len(Dir(Tiedostonnimi))
If Not JoTallennettu Then
ActiveWorkbook.SaveAs Filename:=Tiedostonnimi
End If
Laskuri = Laskuri 1
Loop Until Not JoTallennettu
Application.EnableEvents = True
Cancel = True
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuolemanrangaistus
Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen665429Muistakaa persut, että TE petitte, ei kokoomus
Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,2284247Seuraava hallituspohja - Kokoomus, kepu, persut + KD
Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 172552984Riikka Purra ei estä tehomaksun käyttöönottoa
Sähkön hinnoittelua koskevan määräyksen on määrä astua voimaan vuoden 2029 alusta, Energiavirastosta kerrotaan. Määräyk292672Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta
joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina922567Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta
"Minusta on jotenkin kuvottavaa, kuinka kovalla intensiteetillä Suomi-media seuraa miessankari Jari Saarion merihätää. S3311969Lopetan ikävöinnin
Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään51862Muovipusseista pitäisi saada panttimaksu takaisin
Ostan joka päivä yhden muovipussin, ja niistä palautuu keskimäärin takaisin kaupan pullomaatin yhteydessä olevaan roskik551622Väestöstä vain vassarit vaihtuvat nopeammin kuin persut
Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.121547Jos kaikki lopulta kuolevat, onko edes pahimmillakaan rikoksilla mitään väliä?
Kaikki kuolevat lopulta. Siksi ihmisten tekemillä rikoksillakaan ei lopulta ole mitään merkitystä. Joidenkin mielestä t21516