Microsoft 365 Explorateur d'objets vba ouverture intempestive (pour moi)

[Usine à gaz]

Bonjour à toutes et à tous

Je suis en face d'un souci que je ne sais encore pas résoudre et je fais appels à nos ténors.
J'ai un code, juste pour le test, dans le fichier test joint :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
'clic D1 entrer pour mise à jour
CreateObject("wscript.shell").SendKeys "{F2}"
CreateObject("wscript.shell").SendKeys "{ENTER}"

If Not Intersect(R, Range("g2:j20")) Is Nothing Then
ActiveSheet.Unprotect Password:=""
    CreateObject("wscript.shell").SendKeys "{ENTER}"
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Ce code ouvre l'explorateur d'objets.
Je voudrais que ce ne code n'ouvre pas l'explorateur mais je n'ai pas trouvé comment faire.

Auriez-vous la solution ?
Merci à toutes et à tous,
Amicalement,
lionel

 

[fanch55]

Salut Lionel,
cela n'ouvre l'explorateur VBE que si tu est en mode debugging, cad si tu as mis un point d'arrêt dans le code .
Que veux-tu faire exactement, ?

 

[Usine à gaz]

Bonjour fanch55
Je ne veux rien faire c'est juste un code test.

"si tu as mis un point d'arrêt dans le code"
Si tu as ouvert le fichier joint (sinon ça sert à koi de mettre des fichiers lol). Tu as vu qu'il n'y a
aucun point d'arrêt (qui se met d'ailleurs en ouvrant vba pour exécuter pas à pas).

Si tu exécutes le code en pas à pas, l'explorateur s'ouvre

Ce que je souhaite est que l'explorateur d'objet ne s'ouvre pas,
lionel

 

[TooFatBoy]

Bonjour,

Je clique dans le tableau, mais ça n'ouvre pas l'explorateur d'objet chez moi.

Ce que tu montres en capture d'écran est ce qui apparait quand on appuie sur la touche <F2> dans VBE.
Donc, comme l'a dit fanch55, si tu exécutes en pas à pas, forcément, ça ouvre l'explorateur d'objets.

 

[Usine à gaz]

Bonjour,

Je clique dans le tableau, mais ça n'ouvre pas l'explorateur d'objet chez moi.

Ce que tu montres en capture d'écran est ce qui apparait quand on appuie sur la touche <F2> dans VBE.

Bonjour Marcel
Alors c'est "CreateObject("wscript.shell").SendKeys "{F2}"" qui ouvre l'explorateur ?
Merci déjà pour cette info importante

Pendant que j'y suis, il y a un moyen, tout en gardant le code "CreateObject("wscript.shell").SendKeys " dont j'ai besoin, d'éviter l'ouverture de l'explorateur ?

 

[TooFatBoy]

Oui, c'est le SendKeys "{F2} qui t'ouvre l'explorateur d'objets quand tu exécutes ton code en pas à pas.

Est-ce bien ça : tu as ce problème d'ouverture de l'explorateur d'objets uniquement quand tu exécutes ton code en pas à pas ???

 

[Usine à gaz]

Oui, c'est le SendKeys "{F2} qui t'ouvre l'explorateur d'objets quand tu exécutes ton code en pas à pas.

Est-ce bien ça : tu as ce problème d'ouverture de l'explorateur d'objets uniquement quand tu exécutes ton code en pas à pas ???

OUI uniquement sur "CreateObject("wscript.shell").SendKeys "{F2}""

 

[TooFatBoy]

OUI uniquement sur "CreateObject("wscript.shell").SendKeys "{F2}""

Ma question n'est pas de savoir si c'est uniquement sur cette instruction, mais si c'est uniquement lors de l'exécution en mode "debug" (<F5> ou <F8>). Ce qui semble à peu près évident, mais je demande quand même.

 

[Usine à gaz]

Ma question n'est pas de savoir si c'est uniquement sur cette instruction, mais si c'est uniquement lors de l'exécution en mode "debug" (<F5> ou <F8>). Ce qui semble à peu près évident, mais je demande quand même.

NON, je n'exécute pas en mode "debug"

 

[TooFatBoy]

Juste une remarque (mais...) tu crois vraiment que les PROTECT et UNPROTECT sont indispensables ?

 

[Usine à gaz]

Juste une remarque (mais...) tu crois vraiment que les PROTECT et UNPROTECT sont indispensables ?

on peut les enlever pour le test lol ... mais j'ai tellement l'habitude de les mettre car dans mes fichiers, ils sont importants

 

[TooFatBoy]

NON, je n'exécute pas en mode "debug"

D'abord OUI...
Puis NON...
Et après ??? PEUT-ËTRE...


Franchement, je ne vois pas pourquoi ça t'ouvre l'explorateur d'objets si tu n'es pas dans VBE.
Désolé de ne pouvoir te renseigner.

 

[Usine à gaz]

D'abord OUI...
Puis NON...
Et après ??? PEUT-ËTRE...


Franchement, je ne vois pas pourquoi ça t'ouvre l'explorateur d'objets si tu n'es pas dans VBE.
Désolé de ne pouvoir te renseigner.

 

[TooFatBoy]

on peut les enlever pour le test lol ... mais j'ai tellement l'habitude de les mettre car dans mes fichiers, ils sont importants

C'est surtout que ça ne sert absolument à rien...
Enfin, je veux dire par là que tout le monde sait comment faire sauter les protections d'Excel.

 

[Usine à gaz]

Merci d'avoir bien voulu m'aider
Moi non plus, je ne vois pas pkoi