Discussion :

[jean-phil]

Bonjour,

J'aimerais rendre un fichier excel utilisable seulement depuis certains ordinateurs (les ordinateurs de l'entreprise où je travaille par exemple) , existe-t-il une astuce?

Merci

[mapeh]

Bonsoir jean-phil,
toute protection est quelque peu aléatoire, un quidam volontaire arrivera toujours à déverrouiller ton fichier.
Le plus simple est d'interdire toute copie par l'interdiction d'insérer tout moyen externe (Clé USB, copie de disquette ou de CD, envoi par mail....)
Puis mettre un mot de passe à l'ouverture (quelques minutes....)
Ensuite, à un degré moindre, facilement contournable, tu peux mettre ceci dans l'évènement WorkBook_Open

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
y = Application.UserName
For Each x In Array("baba", "bubu", "bibe")
If x = y Then Exit Sub
Next x
'MsgBox "perdu" '
Application.DisplayAlerts = False
ActiveWorkbook.Close False
End Sub

sachant que tu connais tous les utilisateurs autorisés : Array("baba", "bubu", "bibe"), et que tu cherches le nom de l'utilisateur par "y"
Mais bon, ça tiendra pas longtemps, il suffit d'interdire les macros....