Discussion :

[aaristocat]

Je vous expose mon problème.
Je traite des données issues d'un appareil de mesure à l'aide d'un fichier excel contenant une macro.
Tout d'abord, est-il possible d'empêcher la modification de la macro par un utilisateur autre que moi ?
Ensuite, comment puis-je faire pour que ce fichier ne puisse pas être copié ou renommé par un utilisateur autre que moi ?
D'avance merci

[vinc_bilb]

Bonjour

1. Tout d'abord, est-il possible d'empêcher la modification de la macro par un utilisateur autre que moi ?
2. Ensuite, comment puis-je faire pour que ce fichier ne puisse pas être copié ou renommé par un utilisateur autre que moi ?

Quelques pistes:
1. Sous VBA (Excel anglais): Tools => VBA project proerties => security et mettre un password
2. Protection classique Excel d'un worbook avec Mot de Passe
Un degré supplémentaire de protection est de tester l'utilisateur (attention, ça peut être dangereux si le username change!) par exemple

Code :

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

1
2
3
4
Private Sub Workbook_Open()
 
If Application.UserName <> "Sebastien Loeb" Then ThisWorkbook.Close
End Sub

[aaristocat]

merci pour la première solution qui consiste à verrouiller la macro

ensuite, je souhaite que le fichier puisse uniquement être utilisé sur un PC quelque soit l'utilisateur. Est-il possible d'interdire la copie du fichier ?

sinon je pensais à la solution suivante :
créer un fichier et vérifier la présence de celui-ci à l'ouverture : qu'en pensez-vous ?

[vinc_bilb]

Bonjour,

Vous pouvez tester le nom de votre ordinateur de la même manière, par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Workbook_Open()
 
Dim ComputerN As String , ErrLog As String
 
If Application.UserName <> "Sebastien Loeb" Then ErrLog = ErrLog & Application.UserName & " n'est pas un utilisateur autorisé" & vbClrf
 
ComputerN = Environ("ComputerName")
 
If ComputerN <> "ma machine reference " Then ErrLog = ErrLog & ComputerN & " n'est pas une machine autorisée" & vbClrf
 
If ErrLog <> vbNullString Then
   Msbox ErrLog, vbExclamation
   ThisWorkbook.Close
End If
 
ThisWorkbook.Close
 
End Sub

[Invité]

Bonjour,
regarde ça: http://www.developpez.net/forums/d14...o/#post8027477