Saako excelin luomaan automaattisesti avoinna olevasta työkirjasta varmuuskopion? Jos saa niin miten? Eli jos käytän jotain abc-nimistä tiedostoa niin ohjelma osaisi luoda kopion normaalitallennuksen lisäksi.
Varmistus
Sari V.
1179
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
Tästä voit lähteä muokkamaan omiin tarpeisiin, testasin tämän ja se tallentaa kopion samaan kansioon lisäten nimeen päivämäärän, jos tarvit useimmin niin laita aika siihen vielä jne omien tarpeitten mukaan.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim vastaus
vastaus = MsgBox("Haluatko varmuuskopion tiedostosta?", vbYesNo, "Kysy varmistusta?")
If vastaus = vbYes Then
Cancel = True
Application.EnableEvents = False
ThisWorkbook.Save
ThisWorkbook.SaveCopyAs _
ActiveWorkbook.Path & _
Application.PathSeparator & _
Left$(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _
" - " & Format(Date, "yyyymmdd") & ".xls"
Application.EnableEvents = True
End If
End Sub