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

 

[TooFatBoy]

Tant mieux... et ça tombe bien qu'il fonctionne puisque c'est exactement la même chose que ce fanch55 a mis en #42 (à ceci près que je ne touche bien sûr pas à la protection de la feuille puisqu'il ne sert à rien d'enlever la protection de la feuille vu que ça tape uniquement dans les cellules qui ne sont pas protégées...

@+