1 pièce(s) jointe(s)
Comportement anormal d'une macro
Bonjour,
J'utilise, pour empécher des indiscrétions, une macro sur outlook 2013 qui demande un mot de passe à l'ouverture.
Voir la macro ci-dessous placer dans "ThisOutlookSession"
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Private Sub Application_Startup()
Dim i As Integer
Dim pass As String
Dim chaine As String
'Exit Sub
i = 0
Imax = 2 'Nb maximum d'essais autorisés
chaine = "MotDePasse" 'mot clé
While i < Imax And pass <> chaine 'Boucle tant que mauvais mot de passe ou moins de 3 essais
pass = InputBox("Saisissez le mot de passe", "Avertissement : ouverture de Outlook", , 11500, 3000) 'récupérer le mot de passe saisi
If pass = "" Then Application.Quit: Exit Sub
i = i + 1
Wend
If pass <> chaine And i >= Imax Then
Texte = MsgBox("Mot de passe erroné", , "Mot de passe")
Application.Quit 'Quitter l'application
End If
End Sub |
Cela fonctionne parfaitement sauf que si durant l'affichage de l'écran d’accueil ci-dessous je fais un double clic, outlook s'ouvre normalement sans que j'ai besoin de taper le mot de passe.
Pièce jointe 326651
Ceci est très surprenant même si cela ne me gène pas trop, dans la mesure où je sais qu'il est facile de contourner la demande de MdP en supprimant ou renommant le fichier VbaProject.OTM, j'aimerai comprendre et éventuellement y remédier.
Merci d'avance pour vos idées
Pégase