Protéger mon classeur

Bonjour

j'ai crée un classeur excel avec des macros pour simplifier mon travail

Un collègue me demande ce fichier , je suis d'accord mais je ne veux pas que ça soit utilisé par une autre personne que lui ( pas de copie ailleurs)

Mon idée et de créer un système blocage de façon à ce qu'il ne fonctionne que sur un seul PC

on parle de contrôle de num de série de disque dure mais je n'ai pas réussi à mettre en place

Quelqu'un peut m'aider svp

Merci

Bonjour,

Un début de réponse.

Pour récupérer le nom de l'ordinateur ou le nom de l'utilisateur :

MsgBox Environ("computername")
MsgBox Environ("username")
MsgBox Application.UserName

Pour empêcher les modifications d'un fichier (procédure à copier dans le module ThisWorkbook du classeur) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Me.Saved = True
End Sub

Pour empêcher la copie, je n'ai pas d'idée et je ne sais pas si cela est possible !...