Instalar una macro Word a distancia y protegerla

[lufe]

Chicos tengo realizada una macro de Word y la puedo proteger sin problema e instalarla localmente, o sea si yo estoy frente a la computadora.

Ahora necesito poder instalar esa macro a distancia, en una computadora donde no puedo tomar yo misma el control.

Necesito instalar esa macro de Word y que al mismo tiempo quede protegida.

Se les ocurre como hacerlo?

Tal vez leyendo el número de serie del disco adonde lo voy a instalar y creando alguna rutina encriptada con ese número de serie para que yo pueda mandar la macro por correo pero asegurándome que solo funcionará en ese equipo?

Cualquier ayuda o idea es bienvenida.

[caesar.l]

Supongo que con unas ideas de excel te pueden ayudar, saludos

http://www.forosdelweb.com/f90/como-...-excel-594970/

[lufe]

[QUOTE=caesar.l;2980689]Supongo que con unas ideas de excel te pueden ayudar, saludos

/QUOTE]

Gracias Caesar!

Mira el problema básicamente sería este:

-Una persona me contacta para que le instale una macro creada por mi. Como esa persona físicamente está distante, necesito mandarle por email o un enlace para que descargue y autoinstalee la macro, pero lo que quiero es que esa persona no puede reenviar el correo o el enlace para que otros instalen la macro.

La única forma que se me ocurre sería averiguando primero el número de serie del disco duro de la persona y mandarle una macro personalizada o protegida para que solo funcione en ese disco duro.

Está bien?

Cómo puedo hacerlo, es decir, mandarle primero un programa para que me devuelva el número de serie del disco?

Se podrá hacer eso con un Java Script desde una página web? O sea que esa persona haga clic en un enlace y me llegue a mi su número de serie?

Gracias.

[caesar.l]

mmm la verdad no sabría

Lo que si se me ocurre seria lo siguiente

1. Enviarle un archivo (excel/word) con la macro para sacar el numero de disco que tiene
2. Que te envie ese archivo
3. Que te envie el archivo al cual queires ponerle la macro (que creo que es lo mas dificil)
4. Insertar el numero de serie
5. Regresarle el archivo


buscando por ahi, me topé con este link, espero que tambien te sirva http://excel-macros.blogspot.com/200...xl-to-exe.html

[lufe]

Gracias de nuevo!

El tema es que mi macro debe funcionar incrustada en NORMAL.DOT porque instala un nuevo menú en Word, por lo tanto necesito entre otras cosas recabar el dato de donde está instalada la plantilla NORMAL.DOT.

Igual voy a ver si implementando algo como lo que tú me dices puedo lograrlo.

De momento ya logré una macro que me dice el número de serie del disco y la versión de Word.

[caesar.l]

Mmm pues igual si se puede sacar incluso el dato de donde esta el archivo NORMAL.dot y lo que puedes hacer es que teniendo esos datos, hacer el archivo plantilla con las macros, comprimirlas en un zip autoejecutable y despues es mandarlo y que se descomprima en esa carpeta.

Saludos

[lufe]

Esa es justo mi idea!

Sabes que tengo problema con lo siguiente, si creo una macro en un documento por ejemplo de nombre "Tomodatos" el problema es que si te mando ese archivo a ti, al intentar abrirlo la macro no te funciona porque está dentro del archivo y seguramente por un tema de seguridad tu Word no lo abre, lo que tienes que hacer es ir al organizador de macros y copiar las macros a tu Normal.dot y ahí si te funcionan.

En definitiva, sigo encerrada, puedo crear un documento con una macro que tome los datos pero no se ejecuta sola en el ordenador adonde lo envío...

ah... no se me ocurre que más hacer..

[lufe]

Resumiendo me faltan dos cosas:

1) Que el documento con la macro para relevar los datos se ejecute en el otro ordenador

2) Que de alguna forma pueda leer la ruta en donde se guardan las plantillas de Word

[caesar.l]

Me topé con esta página donde vienen datos que te pueden servir Insertar Macro Autoejecutable y dentro de esa página viene en inglés como insertar una macro de word como un Add-in, lo que me queda duda es si se puede poner contraseña al add-in

Saludos

[lufe]

Aaaaaaaaaaaaaaaaahhhhhhhhhhhhhhhhhhhhh sorprendente!!!

Ese código VBS resuelve lo que precisaba! O sea, hago la macro en mi ordenador, guardo el archivo como plantilla y armo ese código para que coincida con el nombre de mi plantilla, mando las dos cosas empaquetadas y listo!

Ni siquiera necesito saber adonde están las plantillas del usuario.

Ahora a seguir investigando, pero me has ayudado (y espero que le sirve a otros) mucho mucho

[caesar.l]

De nada, saludos

[Edición]
Ya probé la macro y funciona, seria bueno que pusieras ese archivo sin las macros que quieres ocultar y sin contraseña para un posible uso de los demás. Por cierto, me sale un aviso cuando ejecuto el archivo VBS, también para indicarle a quien se lo envias
[/Edición]

[lufe]

Gracias de nuevo!

Pues la solución para instalar una macro a distancia es la que tú encontraste en el post anterior.

No puedo publicar las soluciones porque no me deja pegar direcciones web.

:)

[caesar.l]

No te apures, estas a un mensaje de hacerlo, saludos

[lufe]

Ah.... estoy casi casi logrando lo que quiero, me falta todavía...

Si creo una macro con este contenido:

Código:

Sub verificonumerodeserie()


Dim oWMI As Object, Discos As Object, Disco As Object
Dim bandera, comparo, seriecorrecto
bandera = "Falso"
seriecorrecto = "1475702220"
Selection.TypeText bandera
Selection.TypeParagraph

Set oWMI = GetObject("WINMGMTS:")
Set Discos = oWMI.instancesof("Win32_PhysicalMedia")

For Each Disco In Discos
Selection.TypeText Text:="Serie: " & Disco.SerialNumber
Selection.TypeParagraph


Set Disco = Nothing
Set Discos = Nothing
Set oWMI = Nothing


    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))
    Select Case d.DriveType
        Case 0: t = "Desconocido"
        Case 1: t = "Separable"
        Case 2: t = "Fijo"
        Case 3: t = "Red"
        Case 4: t = "CD-ROM"
        Case 5: t = "Disco RAM "
    End Select
    s = "Unidad " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "NS: " & d.SerialNumber
    Selection.TypeText s
    Selection.TypeParagraph
    
comparo = d.SerialNumber
Selection.TypeText "Comparo está en: " & comparo
Selection.TypeParagraph
    
If comparo = seriecorrecto Then bandera = "Verdadero"
Selection.TypeText "La bandera está en: " & bandera
Selection.TypeParagraph

Next
End Sub

Y sustituyo en:

seriecorrecto = "1475702220"

por cualquiera de los números de serie que obtengo con la macro de recolectar los datos no logro nunca que la bandera quede en Verdadero...

Será que los datos en un caso son string y en otro de otro tipo?

Es decir, con la macro de Word recojo los números de serie del disco, luego quiero poner "a mano" uno de los números correctos y que la macro al leer el número correcto cambie la bandera a verdadero, así después puedo enlazar dentro de un

si bandera es verdadero

tanto la opción diciendo que el programa no está habilitado en ese disco como la opción que deje correr el programa....

qué estará mal?

[lufe]

Lo logré!!!

había que agregarle al número de serie el signo

Por ejemplo si obtenemos:
NS: -1475702220

seriecorrecto = "1475702220"
debe ser
seriecorrecto = "-1475702220"
la línea