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 ????