opslaan als xlsm code excel 2010

[palit]

Beste

Ik heb een bestand waaraan verschillende collega's aan kunnen.

Graag had ik telkens een backup na het opslaan door de collega's.
Heeft er iemand hiervoor een vba code of oplossing?

Mvg

 

[Jezet]

Hoi Palit,

Je kunt voor het afsluiten het bestand 2x opslaan, 1x onder de originele naam en 1x onder een backupnaam.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Naam = Application.UserName
    Nr = Sheets(2).Range("E3") + 1
    wbnm = ActiveWorkbook.Name
    wbnaam = Mid(wbnm, 1, Len(wbnm) - 5)
    wbdir = ActiveWorkbook.Path
    Sheets(2).Range("E3") = Nr
    ActiveWorkbook.SaveCopyAs Filename:=wbdir & "\" & wbnaam & "-" & Naam & "-" & Nr & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=wbdir & "\" & wbnm
End Sub

Deze code moet in de editor (vba) van ThisWorkbook staan.

De code haalt een volgnummer van werkblad2, cel E3 en verhoogd deze met 1 om een volgend (uniek) nummer te krijgen. Wil je dat volgnummer ergens anders hebben moet je dat aanpassen!
Vervolgens worden er twee bestanden opgelagen, de eerste is een nieuw bestand, de tweede bouwd enige zekerheid in dat het originele bestand ook nog opgeslagen wordt.

Groet,
Jeroen

 

[palit]

Beste

Ik heb deze code geplakt in Thisworkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Naam = Application.UserName
Nr = Sheets(8).Range("q2") + 1
wbnm = ActiveWorkbook.Name
wbnaam = Mid(wbnm, 1, Len(wbnm) - 5)
wbdir = ActiveWorkbook.Path
Sheets(8).Range("q2") = Nr
ActiveWorkbook.SaveCopyAs Filename:=wbdir & "\" & wbnaam & "-" & Naam & "-" & Nr & ".xlsm"
ActiveWorkbook.SaveAs Filename:=wbdir & "\" & wbnm
End Sub

Ik heb een paar keer getest maakt geen backup!

Andere collega's kunnen aanpassingen doen in deze bestand en opslaan. Pas nadat deze is opgeslagen moet er tegelijkertijd een backup gemaakt worden liefts op een adere locatie.

Mvg


Mvg

 

[Jezet]

Hoi Palit,

Ik heb zelf nog Excel2003. Net even gegooglet, om op te slaan als xlsm moet er een filetype achter waarschijnlijk

ActiveWorkbook.SaveCopyAs Filename:=wbdir & "\" & wbnaam & "-" & Naam & "-" & Nr & ".xlsm", 52

Kleine wijziging, hopelijk met het juiste resultaat

Groet,
Jeroen

 

[popipipo]

Ik denk dat je onder excel 2003 geen xlsm kunt opslaan want die extensie kent excel 2003 niet.
Wat gebeurt er als je het als xls bestand probeert op te slaan?

 

[Jezet]

Popipipo,

Palit heeft Excel2010, ik niet.

Groet,
Jeroen

 

[popipipo]

ok, niet goed gelezen wie wat schreef.