Excel - Seguridad en Excel

Cordial saludo.

He desarrollado una hoja automática en Excel y quiero grabarla en un computador, pero que tenga algúnnivel de seguridad, es decir que no se pueda copiar y llevar a otro computador, que solamente se pueda leer en el computador que yo la grabe, algo así como leeer el serial del disco duro y comprobar el número. estose pueda hacer? y como podría hacerlo o donde podría encontrar documentación al respecto?.

Gracias.

Oscar Gómez

Si se puede hacer, pero te aseguro que es una seguridad que puede ser vulnerable, no es 100% confiable. Quizas un usuario cualquiera no lo pueda hacer, pero te aseguro que existiran miles que si

Abraham

Abraham, y como se protege nos explicarias un poco mas

Raul

Por ejemplo, con esta macro (no recuerdo de quien es :( ) obtenemos el numero de serie del disco duro en la "ventana inmediato":

Sub ShowSerial()
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:\")))
Debug.Print d.serialnumber
End Sub

Con esta comprobamos si el numero de la macro (456726541), coincide con el del disco duro:

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

cuestion de adaptar todo esto para que de no coincidir, se cierre el archvio.

Abraham

Muchas gracias, será de mucha utilidad.

Oscar

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=127&texto=Excel&n1=377057&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Saludos desde Baires, JuanC