Alle formulieren verwijderen vòòr opslaan.

[Scallebe]

Goede morgen Helpmij-specialisten.

Ik wil een kopij maken van mijn werkboek met Save As.... Daar geen probleem.

Alvorens op te slaan zou ik eerst alle userforms willen verwijderen omdat die in de kopij niet nodig zijn.

Het opslaan gebeurd door middel van een button in een formulier.

Code om op te slaan :

Private Sub cmdHMKA_Click()

    Sheets("Alle CCF").Select
    Unload Me
       
' Opslaan als : CCF-MHKA

    ChDir "C:\Users\Pascal\Desktop"


    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Pascal\Desktop\CCF-MHKA", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    Application.DisplayAlerts = True

End Sub

Bedankt

Pascal

 

[HSV]

Hier al eens gekeken?
http://www.snb-vba.eu/VBA_Excel_VBproject.html

 

[snb]

Opslaan als .xlsx bestand.

 

[Scallebe]

HSV, snb,

Ik had deze site al gevonden tijdens mijn zoektocht en de code gezien om forms te verwijderen. :thumb:

Heb de code toegepast maar deed toch ergens iets fout.

De oplossing van snb lost natuurlijk alles op zoals ik het zou willen. :thumb::thumb:

Bedankt

Greetz

Pascal