macro verwijderen en henoemen

[SUVERMO]

Hallo iedereen,
Is het mogelijk om in een macro een macro te verwijderen, en een macro te henoemen.
Voorbeeld.
In macro 1, Autpen verwijderen
In macro 3, NieuwAutoOpen hernoemen tot Autpen

 

[edmoor]

Ik denk dat je beter kan uitleggen waarom je dat zou willen, als het al mogelijk is.

 

[SUVERMO]

is nog van
https://www.helpmij.nl/forum/showth...acro-Filename-en-Windows()-Activate-aanpassen

ondertussen is "Inzenderslijst maken SUVERMO.xls" dankzij jullie al verbeterd

 

[edmoor]

Dat verklaard voor mij nog niet waarom je een bestaande macro vanuit een macro een andere naam zou willen geven.
Daarnaast zou ik AUTO_OPEN sowieso niet gebruiken.

 

[SUVERMO]

Beste

In “Inzenderslijst maken SUVERMO.xls” zou de bestaande macro “Autpen()” verwijderd moeten worden, mag niet opstarten bij het openen van het nieuw gemaakte bestand “*_Inzenderslijst.xls”, deze geeft dan een foutmelding. Dit mag voorzien zijn aan het begin van de macro “Inzenderslijst_maken(). In “Inzenderslijst maken SUVERMO.xls” moet een macro “NieuwAutoOpen()” komen die de macro “Inzenderslijst_maken()” verwijderd. De macro “NieuwAutoOpen()” moet na het verwijderen van de macro “Autpen()” hernoemd worden tot “Autpen()”.

nog een prettige jaarovergang en het beste voor 2020

 

[HSV]

Mij ook niet, maar zo verwijder je de 'Autpen" die in Module2 staat.

Sub hsv()
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
    .DeleteLines .ProcStartLine("Auto_Open", 0), .ProcCountlines("Auto_Open", 0)
End With
End Sub

 

[edmoor]

Daarvoor heeft de gebruiker dan wel toegang tot het objectmodel van het VBA project nodig.

 

[edmoor]

Of je zet dit bovenin de Autpen:

If Right(ThisWorkbook.Name, 19) = "_Inzenderslijst.xls" Then
    Call NieuwAutoOpen
    Exit Sub
End If