Alguien me podria decir como adaptar esta macro para poner 3 numeros de serie y que funcione en los 3? Es una macro que reconoce el numero de serie del disco duro y si no es igual, cierra la aplicacion.

Private Sub Workbook_Open()



Dim Serie As String

Dim FSO As Object

Dim DiscoDuro As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DiscoDuro = FSO.GetDrive("c:")

Serie = DiscoDuro.SerialNumber

If Serie <> "XXXXXXXX"  Then

MsgBox "ESTE EQUIPO NO ESTÁ AUTORIZADO PARA EL USO DE ESTE PROGRAMA"

'Application.Quit

End If

Set DiscoDuro = Nothing

Set FSO = Nothing



End Sub

[/CODE]

Y esta es la macro para ver el numero de serie del disco duro

[CODE]Private Sub Workbook_Open()


Dim Serie As String
Dim FSO As Object 'FileSystemObject
Dim DiscoDuro As Object 'Drive
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DiscoDuro = FSO.GetDrive("c:")
Serie = DiscoDuro.SerialNumber
MsgBox "EL NUMERO DE SERIE DE ESTE EQUIPO ES: " & Serie, vbInformation
Set DiscoDuro = Nothing
Set FSO = Nothing


End Sub
[/CODE]

Gracias por vuestro tiempo

Pues creo que simplemente necesitas añadir los otros 2 números de serie en el condicional:

If Serie <> "XXXXXXXX"  [COLOR=#0000cd]and Serie<> "YYYYYYYYY" and Serie<> "ZZZZZZZZZZ" [/COLOR]Then


[/CODE]

Mira a ver si es eso lo que buscabas......

Un saludo,

Tese

Gracias tese1969 por tu respuesta.

Eso ya lo habia probado, incluso con Or en vez de and, pero no me funciona...

Lo que busco es que el archivo solo se pueda abrir en 3 pcs.

Por cierto, and y & es lo mismo, no?

Con Or es normal que no te funcione, pues con que se cumpla una de las condiciones te sacaría fuera.....

Y no, and y & no es lo mismo...............

Te debería funcionar........

Un saludo,

Tese

Vale, ya se por que me daba el fallo, no habia puesto bien el segundo numero del disco duro y con &. Vaya fallo tonto...

Muchas gracias tese1969.

De nada, highlander38.............por cierto, si eres de Madrid.....¿no tendrías en tu trabajo algún huequecillo para este humilde macrero?.......:unconscious:

Un saludo,

Tese

No soy de Madrid y ojala pudiera darte trabajo, soy asalariado... es por oposicion nacional.

Saludos y mucha suerte de corazon.

Te lo agradezco..........de verdad........

Habrá que seguir intentando que alguien se pueda "aprovechar" de mí.......lástima de país......la cantidad de gente formada y con talento (y no lo digo especialmente por mí) que no está aportando nada de lo que podría.........

En fin, la vida sigue.....

Un saludo,

Tese

A ver si alguien de por aqui lee tu mensaje y te pueda ayudar de verdad, con tu manera de ser altruista demuestras ser gran persona. Te lo mereces.

Más que altruista, que algo de eso también debe haber, sé las penurias que suponen determinadas tareas repetitivas y totalmente alienantes......en las que el individuo puede aportar más bien poco.......si la maquinita lo hace por tí, entre otras razones porque no se cansa.....jejejeje......pues mejor que mejor.....y así tú te puedes dedicar a cosas más "humanas".....como razonar, planificar....etc....

Sé personalmente que pasar de 20 horas de trabajo para una tarea a apenas 2-3 minutos puede producir hasta lágrimas de felicidad......jejejeje

En fin, a ver si como dices tú alguien se quiere arriesgar.....que mis ganas y motivación están por las nubes.....y sin tomar nada extraño.....jejejej

Cuídate,

Tese