altijd "ja " als excel er om vraagt of geen vba kopieren

[ewh]

met behulp van jullie ben ik bijna klaar maar heb nog een probleempje
Blad3 wil ik kopieren, maar dan zonder de VBA code die er bij ingesloten zit
dat lukt mij niet dus verwijder ik de Buttons die de code inwerking stellen , maar nu krijg ik de boodschap wijzigingen "opslaan? "ja , nee enzo

kan ik: of geen vba kopieren
of de boodschap altijd op "ja "zetten ?

ik doe het kopieren van de sheet met de volgende code:

Sub kopieren()
Dim sBestandsnaam As String

ChDrive "C"
On Error Resume Next
ChDir "C:\weeklijsten"

Sheets("blad3").Select

ActiveSheet.Copy
ActiveSheet.SaveAs Range("K3") & ".xls"
ActiveSheet.Shapes("CommandButton2").Select 'hier verwijder ik de button
Selection.Delete
ActiveSheet.Shapes("CommandButton1").Select 'hier verwijder ik de button
Selection.Delete
ActiveWorkbook.Close 'hier krijg ik de boodschap of ik de wijziging wil opslaan ( moet altijd ja zijn )

Windows("weeklijsten.xls").Activate

Sheets("start_pagina").Select
Range("E15").Select

End Sub

 

[VenA]

Code svp tussen codetags. Waarom staat er code in de bladmodule van blad3 waarom een .xls waarom niet even een voorbeeldbestandje?

Mogelijk

Application.DisplayAlerts = False

 

[edmoor]

Ook mogelijk:

Workbook.SaveCopyAs

Tevens zijn de regels met ChDrive en ChDir nergens voor nodig.

 

[ewh]

mannen bedankt , ik ga er mee aan de slag

 

[HSV]

Ook mogelijk:

[COLOR=#333333]ActiveWorkbook.Close -1 'true[/COLOR]

 

[edmoor]

Haal ook die regel met On Error Resume Next er uit. Dat voorkomt echt geen fouten. Je ziet ze alleen niet als je dat gebruikt. Maar ondertussen is de fout er wel.

 

[jkpieterse]

De crux zit hem erin dat je nu de commandbuttons pas verwijdert nadat je opslaat, de buttons eerst verwijderen en dan opslaan lijkt mij logischer?

Als je zonder code wilt opslaan, kies dan het bestandsformaat xlsx:

ActiveWorkbook.SaveAs Range("K3").Value & ".xlsx",xlOpenXMLWorkbook