Discussion :

[Skratus]

Bonjour à tous,

Je voudrais lancer un UserForm au démarrage d'Outlook. Cela consiste en une petite fenêtre avec un login/mot de passe à renseigner, et un bouton OK.
Si les données saisies correspondent, le démarrage d'Outlook se fait, sinon la fenêtre du logiciel Outlook se ferme.

Ce que je voudrais pouvoir faire, c'est "bloquer" ou "cacher" la fenêtre Outlook tant que l'utilisateur n'a pas saisi les bons identifiants, avec une (ou plusieurs) ligne(s) de code semblable à que j'aurai éventuellement placé dans le Startup:

Application.Visible=False


Je n'ai pas trouvé de solutions sur internet, et je crains que cela ne sois pas possible... Pouvez-vous m'éclairer à ce sujet?

Un grand merci d'avance!

[cerede2000]

Bonjour à toi,

Quel intérêt ?

[joe.levrai]

Bonjour,

il n'y a pas de propriété Visible pour l'objet Application du modèle Objet VBA Outlook

une méthode pour chaque cas :

1) "Bloquer" Outlook

en utilisant l'évènement qui se déclenche à la fin du chargement Outlook, on va demander un mot de passe.
S'il est faux, alors l'application se ferme

La boite de dialogue s'affiche JUSTE AVANT l'affichage de Outlook (quand on est encore sur l'icône de chargement d'Outlook)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Application_MAPILogonComplete()
Dim Reponse As String
Reponse = InputBox("Mot de passe ?")
If Reponse <> "toto" Then Application.Quit
End Sub

2) Masquer Outlook

En pilotant l'ouverture de l'application par Excel, on peut décider d'afficher ou non le client Outlook (propriété Display)

Mais c'est compliqué pour peu de gain par rapport à la solution 1, puisqu'on est obligé de passer par un classeur Excel pour ouvrir Outlook ... l'utilisateur qui ouvre Outlook en direct contourne la restriction