Discussion :

[Pegase45]

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 :

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


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

[Oliv-]

Bonjour,
Je n'ai ni ce comportement sous OL2010 ni avec OL2016

ton double clic tu le fais où exactement

[Pegase45]

Bonjour et merci de ton intervention,

Le double clic je le fais n'importe où sur le bureau, pas forcement dans la fenêtre d'accueil.
Par contre il faut bien que j'attende que la fenêtre d'accueil apparaisse, sinon je suis obligé de taper le MdP.
La fenêtre d'accueil étant très fugitive, il ne faut pas que je perde de temps...