Excel64 bits

[Invitado titino73]

Buenas tardes amigos excelianos.

Me ha surgido una duda, yo he utilizado este código para leer el disco duro de cada computadora.

Me funcionaba bien, ya que le paso un hexa, para convertirlo y sacar de ahí las dos primeras y las dos ultimas.

mediante el hexa, ese seria mi contraseña, resulta que ahora con esa contraseña no permite entrar, en otro Excel 2016, y Excel 2007 instalado en una maquina de 64 bits

igual ya lo probe en otra maquina de 64 bits y va muy bien!!

 

no se a que se deba esto!!

este es el codigo

 

 

Private Sub Workbook_Open()
Author = "XXX"
' disco duro
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("C:")))
serial = d.SerialNumber
Sheets("Hoja1").Cells(1, 1) = serial
clave = Left(Hex(serial), 2) & Right(Hex(serial), 2)
Sheets("Hoja1").Cells(2, 100) = clave
If serial <> Sheets("Hoja1").Cells(1, 2) Then
clave2 = UCase(InputBox("Introduzca la contraseña , de serial: " & serial, "OK"))
If clave <> clave2 Or clave = "" Then
MsgBox "Clave incorrecta" & Chr(13) & "Su serial es: " & serial
ThisWorkbook.Save
ThisWorkbook.Close
GoTo 1
End If
Sheets("Hoja1").Cells(1, 1) = serial
Sheets("Hoja1").Cells(2, 100) = clave2
End If
MsgBox "Bienvenido"
1  End Sub