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
373
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
Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma
Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?3121691Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh751254Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok831237- 1331116
- 48793
- 57784
- 74759
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro117757- 48740
Sitä saattaa vähän hölmöillä
rakkauspäissään, jos tunteita on enemmän kuin osaa käsitellä. Alkuhölmöilyt on söpöä ja sallittavaa.60696