Lecture d'un fichier Excel uniquement sur un seul poste

Version imprimable

Bonjour,

Je voudrais que mon fichier Excel ne puisse être ouvert que sur un seul poste.
J'ai donc fait ce code en utilisant une clé de registre (TestKey de valeur 32) que j'ai créé sur le poste en question :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Workbook_Open() Securite = GetSetting("Section1", "Section2", "TestKey", Défaut) If Securite = 32 Then MsgBox "Autorisé à lire ce fichier" Else MsgBox "Vous n'êtes pas autorisé à lire ce fichier" ActiveWorkbook.Close False End If End Sub
Je me suis rendu compte que ce code ne servait à rien car il suffit que l'utilisateur désactive les macros pour l'ouvrir à moins de créér un certificat de sécurité...
Quelqu'un voit comment je pourrais résoudre mon problème sans certificat de sécurité?
Il doit falloire ne pas se servir des macros mais alors comment faire?

Merci de votre aide

12/05/2006, 10h56
AlainTech

Créer un script en VBS qui tourne en permanence et vérifie si cette fenêtre (le classeur) est ouverte.
Si oui, fermeture et message.

Donc: un VBS par poste et, si l'utilisateur est un peu malin, il stoppe le processus.

Lourd et peu efficace mais je ne vois rien d'autre.
12/05/2006, 14h40
loutsky

Merci de ta réponse, mais mon but est que le fichier ne fonctionne sur aucun poste (même sur ceux ou il n'y aurais pas de sript en VBS) et juste sur le mien.
On ne peut pas faire en sorte que le fichier excel ne s'ouvre pas si on active pas les macros?
12/05/2006, 15h00
AlainTech

Je ne sais pas s'il est possible de mettre toutes les feuilles en caché...

Sinon, tu laisses une feuille visible qui dit que les macros doivent être activées + protection de toutes les feuilles (y compris les cachées).

Dans le Workbook_Open, tu fais tout ce que tu veux au niveau affichage et débloquage.

Ce genre de protection n'est valable que pour le commun des mortels, pas pour des gens un peu futés...

Voilà, j'ai trouvé en cachant les feuilles, c'est une bonne idée AlainTech, voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
    Sheets(1).Visible = True
    For i = Sheets.Count To 2 Step -1
        Sheets(i).Visible = xlVeryHidden
    Next i
End Sub
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    For Each sh In Sheets
        sh.Visible = True
    Next sh
    Sheets(1).Visible = xlVeryHidden
Securite = GetSetting("Section0","Section1", "Key", Défaut)
If Securite = 11123 Then
    MsgBox "Vous êtes autorisé à lire ce fichier"
Else
    MsgBox "Vous n'êtes pas autorisé à lire ce fichier"
    ActiveWorkbook.Close False
End If
End Sub

J'ai créé une feuille qui explique qu'il faut activer les macros.
En protégeant le code par un mot de passe, la sécurité me parait satisfaisante

24/05/2006, 08h09
Vesta

Met un code au niveau du projet VBA, le crtrl Break ne servirai a rien, il demande alors un MDP poiur accéder au code...

C'est pas inviollable (déja éprouvé) maus bon gaut commencer a en vouloir