Excel - segurirdad en excel

Cordial saludo.

Tengo una aplicación en excel, donde no utilizo código Visual Basic, pero sí una cantidad de formulas muy bien estructuradas, quiseria saber sí existe un código visual basic para excel, que cuando se cargue la aplicación, lea el serial del c del computador y si no coincide con el número que yo le indique (el serial del mismo), se descargue la aplicación. Algo así que yo pueda controlar los computadores en donde se pueda correr; es decir, si copian la aplicación y la van a correr en un computador sin mi permiso,que no se pueda correr.

Gracias y quedo a la espera.

Fernando

Checa este código, te lee el numero de serie del disco C, espero te sirva, este codigo lo puedes buscar en la ayuda de VBA.

Private Sub CommandButton1_Click()
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
MsgBox s
End Sub

Salu2

Ok Gracias