Comment faire pour forcer l'éditeur VBA pour entrer en mode pause à chaque fois que le code est appelé?

Je voudrais être en mesure d'activer/désactiver l'option pour passer en mode arrêt à chaque fois que mon code VBA est appelé. La seule façon que je sais faire c'est définir des points d'arrêt à tous les "points d'entrée" dans le code ou ont littéralement chacune de ces méthodes appel d'une fonction distincte aux fins de débogage.

Les "points d'entrée" est peut-être le clic sur un bouton ou une feuille de calcul événements et il ya un bon nombre d'entre eux.

Par exemple, je pourrais faire:

Private Sub bt1Click()
    callThisOnEveryMethod
    'other code
End Sub
Private Sub bt2Click()
    callThisOnEveryMethod
    'other code
End Sub
'etc, repeat 100 times
Private Sub callThisOnEveryMethod()
    'set breakpoint on this method
End Sub

Ce n'est pas vraiment idéal car je suis selon moi, en ajoutant que pour chaque méthode et chaque méthode. Je n'ai pas vraiment confiance en moi-même pour obtenir 100% de cette façon et c'est beaucoup d'encombrement à des fins de débogage. Je peux ajouter un autre code, ici aussi, et même de l'envelopper dans un if MY_GLOBAL_DEBUG_BOOLEAN then type de déclaration, mais j'ai encore besoin d'ajouter ce code (ou l'appel de la méthode) pour chaque méthode que j'ai écris qui pourrait commencer VBA exécution.

Imaginer que je pourrais avoir 100 les méthodes qui pourraient être le début de l'exécution de code VBA.

Il n'est pas idéal pour installer et supprimer des points d'arrêt sur CHAQUE méthode à chaque fois que je veux le faire, soit parce que le nombre d'activer/désactiver.

Ce que je voudrais, c'est à dire VBA en quelque sorte "à chaque fois que vous démarrez l'exécution de code, immédiatement pause et aller en mode debug, indépendamment de points d'arrêt, des assertions, et sans exiger de chaque méthode pour avoir beaucoup de code supplémentaire."

Est-ce possible?

@Jean-François_Corbett dit pourquoi voudriez-vous faire cela? Ce pourrait être un XY Problème (meta.stackexchange.com/questions/66377/what-is-the-xy-problem), ce qui signifie qu'il ya une meilleure façon de résoudre votre problème(s) que votre solution proposée.

OriginalL'auteur enderland | 2013-11-05

  1. 10

    Il y a deux options pour le code de saut et de passer en mode debug:

    a) avec de simples Stop instruction:

    Sub MyProcedure()
   '...any code here
   Stop     'execution will stop here, debugging will start here
   '...the rest of the code
End sub

    b) avec Debug.Assert False de cette façon:

    Sub MyProcedure()
   '...any code here
   Debug.Assert False     'execution will stop here, debugging will start here
   '...the rest of the code
End sub

    Cependant, vous pouvez utiliser n'importe quelle condition de travail avec Debug.Assert Condition- chaque fois que la condition sera de retour False le code s'arrête. Un exemple:

    Dim A
A=10
Debug.Assert A<>10   'stopping execution here... entering debugging mode
    Ce n'est pas vraiment ce que je cherche. Je peux obtenir cette fonctionnalité beaucoup plus facile simplement en insérant un intermédiaire de la méthode et de l'ajout de beaucoup de Stop autour de mon code est même pire que cela en termes de maintien ou de l'éventuel déploiement...
    Donc, utiliser l'outil de Débogage.Affirmer ensuite pour basculer entre les arrêter (Debug.Assert False) ou go (Debug.Assert True) où False and True pourrait être passés en paramètres. Ou...élaborer plus précisément sur ce que vous avez besoin de donner plus précises exemple.
    J'ai clarifié la question.
    Aucun moyen de le faire simplement. Donc Debug.Assert Condition=False semble être la meilleure option.

    OriginalL'auteur Kazimierz Jawor

  2. 3

    J'ai peur que la réponse est non, il n'y a aucun moyen de le faire sans l'insertion de code ou les points d'arrêt à chaque point d'entrée de procédure.

    Pourquoi n'est-il pas une façon de le faire? Eh bien, la vraie question est, pourquoi devrait - il y avoir une façon de le faire? Quel est le point? Perpétuelle mode debug n'a pas de sens. L'idée du mode debug est à saisir si et seulement si vous avez besoin de déboguer une procédure spécifique ou d'erreur. Je ne suis pas sûr de ce que vous essayez d'atteindre exactement?

    De toute façon, la façon dont vous le suggérez, avec callThisOnEveryMethod, est probablement le plus proche que vous pouvez obtenir. Ou en fait, aucun besoin de définir une nouvelle procédure: il suffit d'utiliser

    Debug.Assert MY_GLOBAL_DEBUG_BOOLEAN

    en haut de votre point de procédures d'entrée, où MY_GLOBAL_DEBUG_BOOLEAN est un public de niveau module constant qui doit être défini à False pour entrer en mode de débogage.

    OriginalL'auteur Jean-François Corbett