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
331
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
Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa612260En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos321724- 101534
Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa
Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin3751529Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly141484Nainen, olet jotenkin lumoava
Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel681357- 121108
- 1061091
En muuttaisi sinusta mitään
Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul91054- 20979