Le fichier se ferme si le n° de série du DD n'est pas connu

[degap05]

Bonjour,

La macro du fichier joint permet de récupérer, dans une MsgBox, le N° de série du disque dur du PC d'où elle s'exécute.

Comment indiquer que si ce N° n'est pas celui indiqué, alors, le fichier se ferme ?

Merci pour votre aide.
A+

 

[Pierrot93]

Re : Le fichier se ferme si le n° de série du DD n'est pas connu

Bonjour Degap,

une solution sans l'utilisation de l'API, si j'ai bien compris....

Option Explicit
Private Sub Workbook_Open()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.Drives("C").SerialNumber <> "123456" Then Me.Close
End Sub

bonne fin d'après midi
@+

Edition : code à placer dans le module "thisworkbook"

 

[degap05]

Re : Le fichier se ferme si le n° de série du DD n'est pas connu

Bonjour Pierrot 93,

Le numéro du DD récupéré par ta solution est-il un numéro de série ou bien le numéro d'identification unique du DD ?

J'ai bricolé une solution (qui fonctionne), avec mon fichier et en le testant sur un autre PC de mon entreprise, je me suis aperçu que le n° était identique !!

Qu'en penses-tu ?

Merci.
A+

 

[Pierrot93]

Re : Le fichier se ferme si le n° de série du DD n'est pas connu

Re,

A vérifier si les 2 codes renvoient le même numéro, perso je ne connais que le numéro de série, mais bon, il en existe peut être un autre.... A tester

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.Drives("C").SerialNumber

@+

 

[Pierrot93]

Re : Le fichier se ferme si le n° de série du DD n'est pas connu

A noter, chez moi les 2 macros renvoient le même numéro...

 

[degap05]

Re : Le fichier se ferme si le n° de série du DD n'est pas connu

Bonjour et merci Pierrot93,

Le code que tu as proposé fonctionne très bien.

Il est donc possible de lier le fonctionnement d'un fichier, au numéro de série du DD d'un PC..., sauf si plusieurs PC ont un DD qui porte le même N° (comme c'est le cas dans mon entreprise).

Un autre identifiant de PC serait-il utilisable ?

A+