Macro knop verwijderen na een kopie te hebben gemaakt.

[buckeru]

Hoi allen,

Ik heb het eindelijk zover dat er een juiste copie wordt gemaakt van een bestand.
maar nu blijft er in het copie bestand de macro knop staan, en deze wil ik er graag uit hebben.
ik heb al reeds wat gezocht in het forum, maar het lukt nog niet.
dit is wat ik heb.

	Sheets(Array("blad1", "Blad2")).Copy
	    With ActiveWorkbook
	[COLOR="red"].Shapes("CommandButton1").Delete   [/COLOR]
	        .SaveAs Filename:="C:\Documents\" & Range("T4") & ".xls", _
	            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
	            ReadOnlyRecommended:=False, CreateBackup:=False
	        .Close
	    End With
	    Range("T4:X4").ClearContents

Wat nu rood is, moet volgens mij de knop weghalen. echter ik krijg foutcode 438.
Wie kan mij helpen?

grtn ptr

 

[OctaFish]

Verander je code hier in:

    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next

 

[buckeru]

Thanx, het werkt.
grtn ptr

 

[buckeru]

Sorry, ik was iets te voorbarig.
het werkt alleen als het document niet beveiligd is.
Maar het document moet wel beveiligd zijn.

wie?

grtn ptr

 

[OctaFish]

Je kunt in je vba de documentbeveiliging eerst opheffen met Unprotect, daarna de knoppen verwijderen en vervolgens met Protect de beveiliging weer instellen.

 

[buckeru]

lukt nog niet. ik heb nu dit.

  Sheets().Copy
        With ActiveWorkbook 

             .Unprotect ([pop])
                    For Each shp In ActiveSheet.Shapes
                       shp.Delete
                         .Protect ([pop])
        Next

 

[buckeru]

Het is eindelijk gelukt.
na veel gepuzzle is het dit geworden.
wat tussen "" staat moet dan het ww komen, bv pop

ActiveSheet.Unprotect Password:="pop"

               For Each shp In ActiveSheet.Shapes
               shp.Delete
               Next

        
    ActiveSheet.Protect Password:="pop"

grtn ptr