Discussion :

[Bugzy1963]

Bonsoir le Forum

Je tatonne sur un problème de sécurité et je n'arrive pas à m'en sortir.

Dans le module Workbook_open(), j'ai une procédure de reconnaissance d'un mot de passe.

A l'ouverture du classeur, je veux éviter l'arrêt de la macro par l'utilsation des clefs ESC ou CTRL+BRK

Mon code est le suivant:

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
20
21
22
23
24
25
Private Sub Workbook_Open()
 
Application.EnableCancelKey = False
    On Error GoTo ErrHandler:

Dim Variable As Integer

Application.EnableCancelKey = xlInterrupt
Exit Sub

'Ici j'ai un programme qui demande un mot de passe pour ouvrir le premier onglet du classeur

ErrHandler:
    If Err.Number = 18 Then
         MsgBox("Vous avez arrêté l'application")
        Exit Sub    
    Else
        Application.EnableCancelKey = xlInterrupt
        MsgBox ("Le program va arrêter")
         Exit Sub
    End If

    Application.EnableCancelKey = True

End Sub

Lors de l'exécution d'ouverture du classeur ou lorsque je demande le mot de passe si je presse du CTRL+BRK le programme arrête et j'ai accès aux macro ????

[casefayere]

bonsoir,

si tu veux interdire l'acces à VBA, protège le aussi.

Mais ce n'est peu-être pas ça, ton problème

[Bugzy1963]

Les macros du classeur sont aussi protégées par un mot de passe.

La protection que je recherche se situe au niveau de l'utilisation du classeur.

Même si je place un mot de passe en ouverture du classeur, en utilisant les clefs CTRl+BRK, il est possible d'arrêter la procédure du mot de passe et d'avoir accès au classeur.

[casefayere]

je te propose d'écrire ce subterfuge dans l'evenement workbook open

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
Option Explicit
Const motdepasse = "1111" 'tu choisiras
Private Sub Workbook_Open()
Dim cle As Variant, x As Integer
x = 0
While x < 5
   cle = InputBox("veuillez entrer le mot de passe")
   If cle = motdepasse Then
      x = 5
      Else
      x = x + 1
   End If
Wend
If cle <> motdepasse Then ActiveWorkbook.Close
End Sub

[Bugzy1963]

Bonjour

Le problème ne se situe pas au niveau du mot de passe.

En fait, je contrôle l'introduction au classeur dans le WorkBook_Open() par deux moyens :
1- en utilisant la fonction Environ("USERNAME") + Environ("DOMAIN") + Environ("LOGONSERVER"). Il y a 3 postes sur un serveur.
2- J'utilise aussi un mot de passe, mais merci pour le subterfuge c'est bien.

Cependant, lorsque le classeur est en processus d'ouverture dans Excel ou qu'au moment où le InputBox demande le mot de passe, l'utilisateur peux arrêter la routine dans le WorkBook_Open() en pressant sur CTRL+BRK. Ce qui lui permet d'utiliser le classeur à sa guise.

J'ai essayé d'utiliser la routine du EnableCancelKey comme montré ci-haut, mais cela ne fonctionne pas.

Avez-vous une solution?
Merci pour votre aide.