macro niet mee kopieren

[frimout]

Hallo,
Ik heb hier op dit forum een bestandje gevonden met een macro om 1 tabblad te kopieren naar een nieuw bestand en dit bestand op te slaan.
Nu staat er op dit blad een knop met een macro achter en ik vraag mij af of het mogelijk is om deze niet mee te kopieren.

Wie weet raad? Alvast bedankt

 

[snb]

Verbeterde versie:

Sub Berekeningsblad_bewaren()
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
       
        filenaam = ThisWorkbook.Path & "\" & Sheets("calculatie").[C2].Value & "_" & Format(Sheets("calculatie").[C5].Value, "d-mm-yy") & ".xls"
        
        Sheets("Calculatie").Copy
        With ActiveWorkbook
            With .Sheets(1)
                With .UsedRange
                    .Value = .Value
                End With
                For j = 1 To .OLEObjects.[COLOR="Red"]count[/COLOR]
                    .OLEObjects(1).Delete
                Next
            End With
            .SaveAs filenaam
            .Close
        End With
       
       .DisplayAlerts = True
       .ScreenUpdating = True
    End With
End Sub

 

[frimout]

Verbeterde versie:

Sub Berekeningsblad_bewaren()
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
       
        filenaam = ThisWorkbook.Path & "\" & Sheets("calculatie").[C2].Value & "_" & Format(Sheets("calculatie").[C5].Value, "d-mm-yy") & ".xls"
        
        Sheets("Calculatie").Copy
        With ActiveWorkbook
            With .Sheets(1)
                With .UsedRange
                    .Value = .Value
                End With
                For j = 1 To .OLEObjects
                    .OLEObjects(1).Delete
                Next
            End With
            .SaveAs filenaam
            .Close
        End With
       
       .DisplayAlerts = True
       .ScreenUpdating = True
    End With
End Sub

Hallo SNB

Deze code werkt blijkbaar niet bij mij, blijft steken bij:

For j = 1 To .OLEObjects

Kun je in mijn code iets aanpassen waardoor dit object niet mee gekopieerd wordt?

 

[frimout]

truukje

Hoi,
Ik heb mijn probleem opgelost met een klein truukje.
De knop heb ik in een cel naast het blad gezet en voor het opslaan heb ik die kolom verborgen en het blad beveiligd.
Zie in bijlage mijn bestand waar ik dit gebruik

 

[danny147]

Beste frimout

Als je de VBA editor beveiligd kunnen we niks zien
Maar ja, dit is te omzeilen hé

Groetjes Danny. :thumb:

 

[snb]

Mijn vorige bijdrage aangevuld (zie markering).

 

[Logistiek]

Beste frimout

Als je de VBA editor beveiligd kunnen we niks zien
Maar ja, dit is te omzeilen hé

Groetjes Danny. :thumb:

vertel eens hoe doe je dat dan ? dat omzeilen

 

[frimout]

Bedankt

vertel eens hoe doe je dat dan ? dat omzeilen

Hallo,

Allemaal bedankt om mee te denken.
Wat jouw vraagje betreft Logistiek, denk ik dat het beter is een ander draadje op te starten.
Deze vraag is opgelost.
Groetjes aan alle medewerkers