Excel - Proteger Archivo

Saludos Foro..!

Tengo un pregunta, aparte de proteger y desproteger hojas etc.
¿..Como Proteger un Archivo para que no se pueda copiar a otra Computadora, he oido por ahi que ingresan un codigo que registra el numero de serie de disco duro.
alguien de los expertos podria ayudarme con ese codigo...?

Gracias

Dentro de una macro podrías validar que usuario es el que está usando el archivo y de acuerdo a ello proceder.

por ejemplo con:

If Environ("username") = "QUIEN" Then .....

Cordial saludo desde Pereira Colombia

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

¡¡ Suerte ¡¡

Saludos

Ejecute el Macro

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

Pero donde te sañala o nombra el numero de sereie del Disco D ....?

En el menu del editor VBA > Ver >Ventana Inmediato. (esto imprimira en la ventana inmediato el valor asignado).

Si lo que quieres es asignar este valor a una variable (por ejemplo NSerie), deberas primero declararla con Dim NSerie y despues asignar el valor:

NSerie=d.serialnumber.

O si lo prefieres puedes asignarlo a una celda:

Cells(1,1).value=d.serialnumber. ' Lo imprime en la celda A1

Suerte