PROTECCION DE COPIA DE UN ARCHIVO DE EXCEL

23/11/2006 - 20:24 por Xavier | Informe spam

Hola con todos mi consulta es la siguiente:

¿Cómo puedo hacer para evitar que un archivo de excel (donde se
ejecutan algunos cálculos), una vez grabado en una PC, no se pueda
abrir en otra PC, si es que lo copian?

Me dijeron que era necesario usar Macros, creando otro archivo
vinculado con el de cálculos, y grabandolo en el disco duro de la PC
(en la unidad C), cosa que cuando alguien quiera copiar, y pegar el
archivo de cálculos en otra PC no pueda abrirlo por q en esa otra PC
no esta el archivo vinculado, limitando por tanto su uso a una sola PC.

Estuve tratando con Macros utilizando la funcion GetValue (path, file,
sheet, ref) sin éxito.
Espero su valiosa ayuda.
Saludos
Xavier

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Abraham

23/11/2006 - 21:04 | Informe spam

espero esto te ayude:

http://foros.emagister.com/mensaje-...919662.htm

Abraham

Responder a este mensaje

#2 Xavier

25/11/2006 - 03:31 | Informe spam

Hola Abraham, gracias por la ayuda, puse la macros para que el archivo
reconociera el número de serie de la PC, ahora quisiera que luego de
que reconozca la PC se abra una ventana donde el usurio autorizado
ingrese su codigo registrado (password) y permitido. De esta manera
estaré poniendo doble seguridad si es que la primera es burlada con el
nivel de seguridad.

Lo que hice es:
1. Saque la serie de la PC
2. luego inserté una macros para que "MiMacro" se ejecute cuando se
abra el archivo:
En (ThisWorkBook)

Private Sub Workbook_Open()
Call MiMacro
End Sub

3. Luego inserté la macros de seguridad:

Sub MiMacro()
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.getdrive(fs.getdrivename(fs.GetAbsolutePathName("c:\")))
If d.serialnumber <> 1222748760 Then MsgBox "Equipo no autorizado":
End
MsgBox "Ok"
End Sub

4. Me falta crear el formulario del pasword para que se ejecute luego
de que se ejecuta "MiMacro"

Gracias por tu valiosa ayuda

Xavier

Abraham ha escrito:

espero esto te ayude:

http://foros.emagister.com/mensaje-...919662.htm

Abraham

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida