Macro para cambiar el nombre de los módulos

[Lucky11]

Hola,

Tengo varias macros y necesito cambiar el nombre de los módulos.

Alguien sabe como cambiar el nombre de las macros de forma automatica con una macro?
Tengo que cambiarlos en unos cuantos archivos excel porque los tenia realizados con el office en castellano y si el nombre lleva acento me falla en un office que esta en otro idioma.

Lo que necesito es poner en vez de: "módulo1", "módulo2" quiero que se llamen "module1", "module2".

Espero que alguien me pueda ayudar. Tengo que hacer esos cambios en unos 120 archivos y urgen bastante...


Un saludo,


Sara

[mrocf]

Hola! Sara.
En el siguiente enlace: Reemplazar la ó te he dejado un programa que te puede ser útil.

Saludos, Cacho.

[Lucky11]

Hola,

Muchas gracias. Esta muy bien. Habia conseguido hacer algo parecido pero este hace varios archivos de excel solo haciendo click en un boton.

Lo he probado y funciona bien, pero tengo que cambiar el nombre en un monton de archivos y el codigo lo tengo protegido con contraseña. He probado utilizar sendkeys pero no puedo utilizar el codigo que adjunto y luego el de cambiar el nombre de los modulos en una sola funcion.
Adjunto el codigo por si alguien puede ayudarme.


Sub NameChange()

SendKeys ("%{F11}" + "^{r}")

SendKeys ("{UP}")
SendKeys ("{P}")
SendKeys ("{T}")
SendKeys ("{E}")
SendKeys ("{2}")
SendKeys ("{0}")
SendKeys ("{0}")
SendKeys ("{6}")

SendKeys ("{ENTER}")


On Error Resume Next

With ActiveWorkbook.VBProject

.VBComponents("Módulo1").Name = "Modulo1"
.VBComponents("Módulo2").Name = "Modulo2"
.VBComponents("Módulo3").Name = "Modulo3"
.VBComponents("Módulo4").Name = "Modulo4"
.VBComponents("Módulo5").Name = "Modulo5"
.VBComponents("Módulo6").Name = "Modulo6"
.VBComponents("Módulo7").Name = "Modulo7"
.VBComponents("Módulo8").Name = "Modulo8"
.VBComponents("Módulo9").Name = "Modulo9"
.VBComponents("Módulo10").Name = "Modulo10"

End With

End Sub