distribuir una macro a varios PCs de una red con una macro

hola, Mariano !

Si creamos una macro y... queremos que la puedan usar varios PCs podemos copiar el codigo y transportarlo manualmente
... pero que pasa si el numero de PCs es elevado...
Como podria, con una macro, copiarse el codigo a todos esos equipos [suponiendo que tenemos acceso a todos ellos]
copiando el codigo en el fichero PERSONAL.XLT de cada uno [si es asi, como se haria]?
Dependiendo de lo que hiciese el codigo seria mejor guardarlo como funcion o como una macro a ejecutar manualmente?
Se me acaban de venir muchas dudas a la cabeza sobre este tema y de momento no se como solucionarlas
pero solo en pensar el tiempo que puedo ahorrarme :-)))))))))))))))))))))))))))))

1) no se cual sera ese 'monton de dudas' que acabas de concebir [pero estoy seguro que no son dos] :))

2) si puedes definir el termino... 'elevado numero de pc's' ? {10\100\1000\... } deberas multiplicarlo por los imponderables y dudas [p.e.]:
- todos usan la misma version de excel ?
- cuantos tienen ya en uso 'su propio' archivo de macros 'personal.xls' ?
- cuantos pudieran haber puesto clave a su personal.xls ?
- si fuera necesario 'crearlo'... ya conoces la carpeta [exacta] donde cada version 'instala' el libro de macros personales ?
[que pudiera ser diferente segun versiones de excel y/o de windows]
- no se en cuantas dudas has pensado... [yo mejor no le sigo] :))

3) una -posible- alternativa es si 'instruyes' a -todos- los usuarios para que 'habiliten' la apertura de archivos del directorio de inicio alternativo
[menu] herrmientas / opciones / [ficha] general -> archivos de inicio alternativo en: {...}
y te encargas de una carpeta compartida que contenga la ultima version de un archivo 'general'
-> con las caracteristicas de un archivo de macros personales [como la ventana del libro OCULTA, etc. etc. etc.]

[creo que] lo anterior pudiera ser un -buen- 'punto de partida', a reserva de otras situaciones 'especificas' :))

saludos,
hector.

Hola: Te doy varias ideas.

1) En la carpeta XLSTART puedes poner tantos ficheros como quieras, asi que
no haria falta borrar/modificar el PERSONAL.XLS

Es decir, copiando un fichero .XLS con tu macro (y con una barra de
herramientas adjunta si quisieras) en dicho directorio, ya lo tendrias
solucionado.

2) Para copiar el fichero MiMacro.XLS en ese directorio, depende de si estas
en red o no.

Si lo estas, puedes crear en politicas que se ejecute un fichero .BAT que
realize una copia del ficheros desde un sitio de la red al PC del usuario.
Yo utilizo un XCopy, asi que cuando modifico algo del fichero y lo sustituyo
en la red, en el momento que el usuario entre en el PC, automaticamente se
actualiza.

Supongo que habran mejores soluciones, pero esta funciona ;-)

Saludos

"MarianoB" escribió en el mensaje
news:
Hola grupo,
No sé si alguien se ha planteado antes este tema pero creo que pude
ser muy útil a muchos usuarios.
Si creamos una macro y dicha macro queremos que la puedan usar varios
PCs podemos copiar el código y transportarlo manualmente a varios PCs
pero que pasa si el número de PCs es elevado...
Como podría, con una macro, copiarse el código a todos esos equipos
[suponiendo que tenemos acceso a todos ellos]
¿copiando el código en el fichero PERSONAL.XLT de cada uno [si es
así, ¿como se haría?]?
Dependiendo de lo que hiciese el código ¿sería mejor guardarlo como
función o como una macro a ejecutar manualmente?
Se me acaban de venir muchas dudas a la cabeza sobre este tema y de
momento no sé como solucionarlas pero solo en pensar el tiempo que
puedo ahorrarme :-)))))))))))))))))))))))))))))

Hola Héctor,

1) El montón de dudas [que no son dos, ;-)] viene dado por mis
limitados conocimientos sobre macros.
2) a) El elevado número de PCs se acerca a los 100. No todos usan la
misma versión de Excel, unos usan XP y otros 2003.
b) Solo un usuario usa su propio fichero Personal.XLS.
c) El único usuario que usa dicho fichero lo tiene sin clave
d) Si fuera necesario crearlo, solo debería probar con 2 versiones
de Excel y una de Windows para ver la carpeta [exacta] donde lo
'instala' [teniendo en cuenta, en cada ruta, el nombre de cada equipo
así como el de cada perfil creado en cada equipo]
3) La instrucción de 100 usuarios puede llevarme mucho mas tiempo que
pasarme por cada uno de los equipos porque ya hace tiempo 'instruímos'
a los usuarios para poner una contraseña [conocida por todos
internamente] a un directorio compartido [que ya existía en cada
equipo] y el resultado fué que de 100 usuarios, [los datos a
continuación solo son orientativos] unos 20 la cambiaron, otros 20 no
tenían claro como hacerlo a pesar de haberlo explicado paso a paso con
imágenes [pantallas 'pegadas'] y el resto simplemente pasaron del
tema. :-(

No obstante, muchas gracias por todas tus puntualizaciones, que como
dices "pudiera ser un -buen- 'punto de partida', a reserva de otras
situaciones 'especificas' :))"[:-))))]




Héctor Miguel wrote:

hola, Mariano !

> Si creamos una macro y... queremos que la puedan usar varios PCs podemos copiar el codigo y transportarlo manualmente
>... pero que pasa si el numero de PCs es elevado...
> Como podria, con una macro, copiarse el codigo a todos esos equipos [suponiendo que tenemos acceso a todos ellos]
> copiando el codigo en el fichero PERSONAL.XLT de cada uno [si es asi, como se haria]?
> Dependiendo de lo que hiciese el codigo seria mejor guardarlo como funcion o como una macro a ejecutar manualmente?
> Se me acaban de venir muchas dudas a la cabeza sobre este tema y de momento no se como solucionarlas
> pero solo en pensar el tiempo que puedo ahorrarme :-)))))))))))))))))))))))))))))

1) no se cual sera ese 'monton de dudas' que acabas de concebir [pero estoy seguro que no son dos] :))

2) si puedes definir el termino... 'elevado numero de pc's' ? {10\100\1000\... } deberas multiplicarlo por los imponderables y dudas [p.e.]:
- todos usan la misma version de excel ?
- cuantos tienen ya en uso 'su propio' archivo de macros 'personal.xls' ?
- cuantos pudieran haber puesto clave a su personal.xls ?
- si fuera necesario 'crearlo'... ya conoces la carpeta [exacta] donde cada version 'instala' el libro de macros personales ?
[que pudiera ser diferente segun versiones de excel y/o de windows]
- no se en cuantas dudas has pensado... [yo mejor no le sigo] :))

3) una -posible- alternativa es si 'instruyes' a -todos- los usuarios para que 'habiliten' la apertura de archivos del directorio de inicio alternativo
[menu] herrmientas / opciones / [ficha] general -> archivos de inicio alternativo en: {...}
y te encargas de una carpeta compartida que contenga la ultima version de un archivo 'general'
-> con las caracteristicas de un archivo de macros personales [como la ventana del libro OCULTA, etc. etc. etc.]

[creo que] lo anterior pudiera ser un -buen- 'punto de partida', a reserva de otras situaciones 'especificas' :))

saludos,
hector.

Hola :)

En el foro de excelusiones se dio respuesta a una pregunta semejante a la
tuya, solo que para ese caso se trataba de un XLA "complemento" a lo cual al
menos a mi parecer seria mas sencillo que lo realizes de estas forma
cargandolo desde la red como complemento y tenerlo disponible localmente en
cada una de las maquibnas habiendolo instalado por primera vez, obviamente
dentro edl codigo se especifica que se cargue y copie localmente :)

Comenta si tienes mas dudas :)

Anexo dos codigos para que los adaptes segun tus necesidades.
Con este cargamos y copiamos a disco, lo realize por error debido a posibles
mensajes a futuro.

Sub micarga()
On Error GoTo mierror
AddIns("Cargadinamica.xLA").Installed = True
mierror:
Select Case Err.Number
Case 9
AddIns.Add("\\Miservidor\MiCarpetaDeComplemento\Cargadinamica.xLA",
True).Installed = True
End Select
End Sub


El siguiente es para sacar el status de los complementos instalados:

Sub cargados()
With Worksheets("hoja1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Name", "Full Name", "Title", "Installed")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Name
.Cells(i + 1, 2) = AddIns(i).FullName
.Cells(i + 1, 3) = AddIns(i).Title
.Cells(i + 1, 4) = AddIns(i).Installed
Next
.Range("a1").CurrentRegion.Columns.AutoFit
End With
End Sub