Foro Excel

Con esta macro se puede obtener el N° de serie del disco en el que se guardó el libro
(si no está guardado toma el C:)

Código: Seleccionar todo

Sub NumeroSerieDisco()
Dim fs, d, s, drvpath
'Si todavía no se guardó el libro y no existe path, asumo q es C:
If ThisWorkbook.Path = "" Then
drvpath = "C:"
Else 'Si no tomo el drive en el que está el libro
drvpath = Chr(34) & Left(ThisWorkbook.Path, 1) & ":" & Chr(34)
End If
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = "SN: " & d.serialnumber
    MsgBox d.serialnumber
End Sub

Saludos, buen codigo.

Tengo uno similar que me regalaron hace mucho tiempo el cual es para evitar copias ilegales.

Y es bueno, pues si detecta que el serial del disco duro no corresponde con el serial que ya ha grabado el archivo, saca un mensaje de advertencia pidiendo que se comuniquen contigo para activar nuevamente el archivo, y hacer que tome el serial del nuevo disco duro de la maquina en la cual estan abriendo el archivo.

Pero, he notado que cuando el archivo está en el escritorio, y excel esta cerrado, toma un numero serial.

Si excel esta abierto, parece que toma el serial de otra particion del disco duro.

Luego, en una misma maquina, depende de como se abra el archivo toma un numero serial, y esto es un problema.

Creo que tu me lo podrias solucionar, haciendo que por obligacion tome el serial del C.

Saludos,

Evita publicar tu email en el foro.

Si tienes algo interesante para aportar mejor publícalo directamente.

Gracias!