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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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 :)
 

Pièces jointes

  • explorateur.xlsm
    66.2 KB · Affichages: 10
Dernière édition:

TooFatBoy

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

@+
 

Discussions similaires

Réponses
8
Affichages
452

Statistiques des forums

Discussions
302 038
Messages
1 999 903
Membres
214 702
dernier inscrit
Gaël0410