Excel 2010 VBA macro para cambiar el contenido de un módulo en otro archivo
He desarrollado una macro para actualizar archivos en masa en una ubicación de archivo. Estoy usando el siguiente código, que funciona perfectamente, sin embargo, la parte de Edición del script requiere cambios en un módulo de VBA en cada uno de los archivos para que los cambios en la macro de edición de llamadas funcionen. ¿Cómo puedo actualizar masivamente el contenido del módulo cuando realizo la actualización masiva de archivos?
Sub Auto_open_change()
Dim WrkBook As Workbook
Dim StrFileName As String
Dim FileLocnStr As String
Dim LAARNmeWrkbk As String
PERNmeWrkbk = ThisWorkbook.Name
FileLocnStr = "C:\Users\gornalla\Desktop\PER Update" 'ThisWorkbook.Path
Dim StrFile As String
StrFile = Dir(FileLocnStr & "\*.xlsm")
Do While Len(StrFile) > 0
DoStuff (FileLocnStr & "\" & StrFile)
StrFile = Dir
Loop
End Sub
Private Sub DoStuff(StrFileName)
Workbooks.Open (StrFileName)
'Workbooks(StrFileName).Activate
ActiveSheet.Unprotect ("147258369")
Sheets("Property Evaluation Report").Select
ActiveSheet.Unprotect ("147258369")
Call Edit
ActiveWorkbook.RefreshAll
Sheets("Property Evaluation Report").Select
ActiveSheet.Protect Password:="147258369", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True
ActiveWorkbook.Close
Application.SendKeys ("Enter")
End Sub