Bonjour,
J'ai plusieurs comptes email dans Outlook et j'aimerais qu'Outlook me demande un mot de passe à l'ouverture.
Carden752 a publié un code en février 2010 mais lorsqu'on tape 3 fois le mauvais mot de passe Outlook fini par s'ouvrir.
Voici le code si quelqu'un voit d'où vient l'erreur :
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub Application_Startup() 'Lancement de cette procédure au lancement de l'application Dim i As Integer Dim pass As String Dim chaine As String i = 0 chaine = "toto" 'mot clé While i < 3 And pass <> chaine 'Boucle tant que mauvais mot de passe ou moins de 3 essais pass = InputBox("saisissez le mot de passe") 'récupérer le mot de passe saisi i = i + 1 Wend If pass <> "chaine" And i > 3 Then Application.Quit 'Quitter l'application End If End Sub
Partager