blad opslaan zonder formules

[pasan]

nieuwe poging

heb dit verandert

 With ActiveSheet
   .Shapes("CommandButton1").Delete
     End With
   .Close
  Call VerwijderFormules
 [COLOR="red"]ThisWorkbook.Save[/COLOR]

in dit

 With ActiveSheet
   .Shapes("CommandButton1").Delete
     End With
  Call VerwijderFormules

[COLOR="red"]ActiveWorkbook.Close SaveChanges:=True[/COLOR]

het orgineel blijft zn formules behouden en de kopie map heeft nu vaste waarden
alleen heb ik in de kopie map 2 dezelfde sheets "blad1" en "blad1(2)"
blad 1 heeft geen formules maar wel shapes
blad1(2) heeft ook geen formules en ook geen shapes en dit laatste is nou presies wat ik wil, gewoon een kopie zonder formules van het orgineel.

 

[pasan]

vandaag de hele dag geprutst en uiteindelijk tot deze bijna goede code gekomen( bij elkaar gevonden).
deze code doet het prima, de formules worden verwijdert en de shapes op het werkblad ook.

wat gaat er mis.
De hoofd map wordt gesloten en de kopie blijft in beeld.
kan de hoofdmap open blijven en de kopie meteen afgelsoten worden?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Dim ws As Worksheet
    ActiveWorkbook.SaveAs Filename:="C:\Users\blabla\Desktop\excel test\" & Format(DateValue(Now - 8.5 / 24), "dd-mm-yyyy") & ".xls"

    With ActiveSheet.UsedRange
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    On Error Resume Next
    ActiveSheet.DrawingObjects.Visible = True
    ActiveSheet.DrawingObjects.Delete
    On Error GoTo 0
    Application.CutCopyMode = False
    ActiveWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

 

[pasan]

eindelijk het is me gelukt

eindelijk is het me gelukt met de volgende code

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("blad1").Unprotect Password:=""
    Dim ws As Worksheet
    ActiveSheet.Copy
    Set NewWb = ActiveWorkbook
ActiveWorkbook.SaveAs Filename:="C:\Users\blabla\Desktop\excel test\" & Format(DateValue(Now - 8.5 / 24), "dd-mm-yyyy") & ".xls"

    With ActiveSheet.UsedRange
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    On Error Resume Next
    ActiveSheet.DrawingObjects.Visible = True
    ActiveSheet.DrawingObjects.Delete
    On Error GoTo 0
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    NewWb.Close True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

 

[edmoor]

Verder helemaal zelf gedaan dus.
Well done!

 

[pasan]

tis meer zelf afgekeken, bij elkaar sprokkelen van code, en kijken of het werkt
een exper ben ik bij lange lange na niet, vind iets bedenken en proberen aan de praat te krijgen gewoon erg leuk om te doen. En soms is het beter overnieuw te beginnen.
Jou code kon ik helaas niet kraken (aanpassen- dus snappen) maar heb wel iets nieuws geleerd van je met het stukje CALL.
Ontzettend bedankt voor je inzet mij te helpen edmoor en wie weet tot de volgende puzzel