Impedir abrir libro usando macro apartir de un serial

24/10/2006 - 01:12 por Edixon | Informe spam
Hola un saludo a todos y a nuestro gran amigo Héctor que es de gran
ayuda.

Las siguientes macros que son del grupo.
1.-
Sub ShowSerial()
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:\")))
MsgBox d.serialnumber
End Sub

Cuando esta se ejecuta ella devuelve un serial relacionado con el disco
duro de la maquina donde se ejecutó.(La probabilidad de que dos discos
tengan el mismo serial es casi nula). Ese código se anota y se coloca
en la macro 2 despues de If d.serialnumber <> (en este caso
1222748760)

La siguiete macro cuando se abre el libro y ese serial coincide
arroja un mensaje con OK sino arroja Equipo no autorizado
2.-
Private Sub Workbook_Open()
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

Bueno lo que necesito es que con esta informacion si alguien copia
el libro, cuando lo abra en otra maquina aparte de dar el mensaje de
"Equipo no autorizado" automaticamente se bloquee el libro o se borre o
cualquier otra cosa, lo importante es que no lo pueda ejecutar ni ver.

Gracias por su ayuda de antemano

Preguntas similare

Leer las respuestas

#1 sorenkierkegaard
24/10/2006 - 03:08 | Informe spam
Hola, sólo agréga la instrucción de: Application.Quit y cada vez que
abras el archivo en un equipo no autorizado impedirá su apertura y se
cerrará automáticamente.

Private Sub Workbook_Open()
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":
Application.Quit
End Sub

Sólo una cosa más, para los que saben, ese código y muchos otros, no
sirven de nada, de todas formas podrán abrirlo sin problemas. Si
tienes MSN contáctame y podemos ver algo un poco más seguro. De todas
formas espero que te sirva.

Atte.
Respuesta Responder a este mensaje
#2 Francisco Parrilla
25/10/2006 - 06:40 | Informe spam
Tal cual lo trascribes es correcta tu afirmacion pero para eso hay otras
travas que se pueden aplicar al libro como protegerlo para su visualizion,
apertura si no estan activas la macros, por su direccion MAC, username y
demas

Saludos
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France
Respuesta Responder a este mensaje
#3 Edixon
26/10/2006 - 01:28 | Informe spam
Hola Francisco que otra formaconoces para protegelo? Gracias por tu
ayuda
Respuesta Responder a este mensaje
#4 Héctor Miguel
26/10/2006 - 05:46 | Informe spam
hola, Edixon !

... lo que necesito es que... si alguien copia el libro... en otra maquina aparte de dar el mensaje de "Equipo no autorizado"
automaticamente se bloquee el libro o se borre o cualquier otra cosa, lo importante es que no lo pueda ejecutar ni ver...



-> revisa el siguiente articulo: -> http://www.sistemaslym.net/vba/excel/exarc1.html

notas:
-> NO es 'infalible'.. ni 'a prueba de balas'... [ni nada 'parecido'] :-((
se trata solamente de la combinacion de algunos 'trucos' :D
tampoco estan 'todos los que son'... [pero son todos los que estan] :))
[obviamente] puedes ir agregando los que consideres mas apropiados [segun tus necesidades] ;)

saludos,
hector.
Respuesta Responder a este mensaje
#5 Francisco Parrilla
26/10/2006 - 06:34 | Informe spam
Ya te menciones que bien puede sacar ek username, el serial del disco, el
nombre de la Pc, la direccion MAC y hacer lo correspondiente, ademas de no
permitir ver el libro si no se habre con macros, es decir desproteger para
su visualizacion si se habre con macros y si no tenerlo ocultas las hojas :)

Saludos

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida