Alle macro's verwijderen t.b.v. backup data

[Robert Smidt]

Beste Helpmij'ers,

Ik heb een vraag of het via een vba-script ook mogelijk is om t.b.v. het maken van back-ups, waar alleen de data in excel van belang is, alle macro's te verwijderen alvorens deze het programma opslaat? De macro's bevinden zich in alle werkbladen als events (Private Sub Worksheet_Change(ByVal Target As Range) en als individuele modules (Sub). En zo ja, wat is de code hiervan?

Alvast hartelijk dank.

Robert

 

[edmoor]

Sla dat document op als .xlsx document. Dan zijn alle macro's weg.

 

[Robert Smidt]

Soms zijn de antwoorden zó simpel, hier had ik nooit aan gedacht. Super bedankt...:thumb:

 

[Robert Smidt]

Helaas werkt het toch niet, ik krijg onderstaande foutmelding. Ik word verzocht de extensie te wijzigen of heb ik in mijn code iets niet goed gezet?

BestandsNaam = Sheets("Persoonlijke instelling").Range("a2").Value & Sheets("Data").Range("K34").Value & ".xlsx"
pad = [Backupdrive] & "Cashflow Control"
ActiveWorkbook.SaveAs Filename:=pad & "\" & BestandsNaam

 

[edmoor]

Alleen de extensie aanpassen is niet voldoende, je moet ook het bestandstype opgeven:
https://www.rondebruin.nl/win/s5/win001.htm

 

[snb]

Gebruik in de VBEditor eens wat vaker de F1-toets.
Selecteer het woord SaveAs in je code en sla dan op F1.

 

[Robert Smidt]

Bedankt voor de tip, ik heb idd nog nooit de F1 toets gebruikt en heb het direct gedaan, alleen bij mijn probleem kwam ik er niet uit.

Wat betreft de bijlage van Ron de Bruin zie ik door de bomen het bos niet meer. Wat ik wel heb ontdekt is dat ik fileformat:=50 moet gebruiken. Op zich werkt dit, alleen krijg ik een aantal vragen die ik met "Ja" moet beantwoorden, is dat gebruikelijk of kun je dat ook omzeilen?

            BestandsNaam = Sheets("Persoonlijke instelling").Range("a2").Value & Sheets("Data").Range("K34").Value & ".xlsx"
            pad = [Backupdrive] & "Cashflow Control"
                ActiveWorkbook.SaveAs Filename:=pad & "\" & BestandsNaam, FileFormat:=51

 

[snb]

zoek eens met F1 naar displayalerts

Ja, ja; Ron bakt ze veel te bruin met veel teveel code.

 

[Robert Smidt]

Het is gelukt op displayalerts, bedankt voor de goede tip.