1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    février 2007
    Messages
    11
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : France

    Informations forums :
    Inscription : février 2007
    Messages : 11
    Points : 5
    Points
    5

    Par défaut 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 : 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.
    Nom : OE Accueil_2.png
Affichages : 21
Taille : 13,3 Ko

    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

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 080
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 080
    Points : 5 362
    Points
    5 362
    Billets dans le blog
    14

    Par défaut

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

    ton double clic tu le fais où exactement

  3. #3
    Futur Membre du Club
    Profil pro
    Inscrit en
    février 2007
    Messages
    11
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : France

    Informations forums :
    Inscription : février 2007
    Messages : 11
    Points : 5
    Points
    5

    Par défaut

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

Discussions similaires

  1. comportement anormal d'une condition >=
    Par gregory314 dans le forum VB.NET
    Réponses: 2
    Dernier message: 21/01/2015, 14h51
  2. [XL-2010] Comportement different d'un graphique dans une macro et hors macro
    Par Caramel13 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/07/2014, 23h15
  3. Réponses: 0
    Dernier message: 31/08/2012, 09h52
  4. [PHP 5.2] Comportement anormal d'une fonction
    Par christobale dans le forum Langage
    Réponses: 2
    Dernier message: 31/03/2011, 12h56
  5. Comportement anormal de la tabulation sur une DBGrid
    Par fredfred dans le forum Bases de données
    Réponses: 2
    Dernier message: 18/05/2005, 14h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo