IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Blocage exécution macro


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Homme Profil pro
    Inscrit en
    Mars 2008
    Messages
    203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 203
    Points : 175
    Points
    175
    Par défaut Blocage exécution macro
    Bonjour à tous

    J'ai un classeur Excel qui ouvre plusieurs fichiers pour utiliser leurs données et les compacter.
    Seulement ces fichiers contiennent eux-mêmes des macros qui sont lancées au démarrage.

    Existe-t-il un moyen pour bloquer l'exécution de ces macros au démarrage lors du Workbooks.Open

    L'équivalent du "Désactiver les macros" du Security Warning lorsque l'on ouvre manuellement le fichier...

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Teste "Application.enableEvents = false juste avant ouverture, que tu rétablis après.

  3. #3
    Membre éclairé

    Profil pro
    Inscrit en
    Mai 2007
    Messages
    514
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2007
    Messages : 514
    Points : 824
    Points
    824
    Par défaut
    Bonjour,

    Un exemple fourni par l'aide pour ouvrir un fichier en désactivant ses macros:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub Security()
        Dim secAutomation As MsoAutomationSecurity
     
        secAutomation = Application.AutomationSecurity
     
        Application.AutomationSecurity = msoAutomationSecurityForceDisable
        Application.FileDialog(msoFileDialogOpen).Show
     
        Application.AutomationSecurity = secAutomation
     
    End Sub
    Cordialement,

    Tirex28/

  4. #4
    Membre habitué
    Homme Profil pro
    Inscrit en
    Mars 2008
    Messages
    203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 203
    Points : 175
    Points
    175
    Par défaut
    Merci pour vos réponses...

    J'ai mis pas mal de temps à les tester.
    Celle du meilleur ch'ti du forum fonctionne parfaitement et me résoud en même temps un autre souci:
    lors de l'ouverture d'un des fichiers XLS, j'avais une erreur liée au fait que le fichier provient de E07 et que les autres sont en E03.

    Référence libraire d'objets: Office 12.0 pour E07 et 11.0 pour E03.

    Plus de soucis avec:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.EnableEvents = False

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Exécution macro avec une fonction intégré
    Par kiwi31 dans le forum VBA Access
    Réponses: 13
    Dernier message: 22/05/2007, 16h18
  2. [Macro]Exécution macro, message Erreur 3441
    Par samca dans le forum IHM
    Réponses: 1
    Dernier message: 25/04/2007, 20h17
  3. protection feuille + exécuter macros
    Par Fab_nabou dans le forum Macros et VBA Excel
    Réponses: 19
    Dernier message: 04/12/2006, 11h14
  4. Exécution Macro Excel à partir d'Access
    Par SylvainJ dans le forum Access
    Réponses: 1
    Dernier message: 11/08/2006, 14h58
  5. [VBA][Excel]Exécution macro avec fichiers source
    Par ouezon dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 24/12/2005, 00h00

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