Fichier fonctionne sur PC defini

Bonjour tout le monde,

Je voudrais savoir si c'est possible de mettre une macro dans un fichier qui interdise l'utilisation de ce dernier sur des PC non definie.

exemple:

j'ai deux PC, un qui s'appelle A l'autre B. Les nom de ces PC seraient repertoriés dans la macro et donc le fichier fonctionnerait sur ces deux PC.

Si le nom du PC est C ou D ou... le fichier ne fonctionne pas et me met une Msgbox.

EDIT: SI possible Nom du PC = IP

Est ce possible SVP?

Je vous remercie d'avance.

Bonjour,

Un exemple à copier dans le module ThisWorkbook pour tester.

(ALT F11 pour ouvrir l'éditeur VBE)

Cdlt.

Option Explicit
Private Sub Workbook_Open()
Dim nomPC As String, nom As String

    nomPC = environ("COMPUTERNAME")
    nom = environ("USERNAME")

    Select Case nomPC
        Case "A", "B"
            MsgBox "Bonjour " & nom, 64
            ' procédure
        Case Else
            MsgBox "Bonjour " & nom & Chr(10) & "Vous n'êtes pas autorisé à utiliser ce fichier.", 16
    End Select

End Sub

Bonjour Jean-Eric,

Merci pour ton code qui fonctionne très bien!!

J'ai seulement un soucis, c'est que plusieurs PC pourront acceder a mon fichier.

j'ai donc essayer de mettre ce code:

Option Explicit
Private Sub Workbook_Open()
Dim nomPC As String, nom As String

    nomPC = environ("COMPUTERNAME")
    nom = environ("USERNAME")

    Select Case nomPC
        Case "A" & "C", "B" & "D"
            MsgBox "Bonjour " & nom, 64
            ' procédure
       Case Else
            MsgBox "Bonjour " & nom & Chr(10) & "Vous n'êtes pas autorisé à utiliser ce fichier.", 16
    End Select

End Sub

Mais ça ne fonctionne pas!

Pour info, il y aura environ 5 PC qui auront acces au fichier.

As tu une solution?

Re,

Essaie :

Case "A", "B", "C", "D"

Sinon il ne doit pas avoir de problème avec les IP.

Cdlt.

Super, Merci Jean-Eric!!

Ca fonctionne trés bien!!

Je classe.

Bonne continuation.