Excel - segurirdad en excel

   
Vista:

segurirdad en excel

Publicado por Fernando Mesa (2 intervenciones) el 26/02/2008 19:11:25
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:segurirdad en excel

Publicado por Marvin Osorio (368 intervenciones) el 26/02/2008 20:22:22
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:segurirdad en excel

Publicado por Fernando Mesa (2 intervenciones) el 26/02/2008 22:47:36
Ok Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar