Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

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

Dernière édition:
Trier par date Trier par votes
Re

Parce que dans mes usines à gaz, les simulations de touches génèrent des actions dont j'ai besoin
Cliquez pour agrandir...
Ca ne réponds pas à ma question...
Car comme je le disais, sachant précisément de quoi il retourne, on peut employer une autre syntaxe VBA qui aura le même effet sans les inconvénients.
 
Vote positif 0 Vote négatif
Staple1600 à dit:
Re


Ca ne réponds pas à ma question...
Car comme je le disais, sachant précisément de quoi il retourne, on peut employer une autre syntaxe VBA qui aura le même effet sans les inconvénients.
Cliquez pour agrandir...
C'est vrai, tu as raison mais là, je ne sais pas répondre.
Il me faut le temps d'aller voir dans mes fichiers et, même, je ne suis pas certain de pouvoir expliquer clairement chaque application. 🙂
 
Vote positif 0 Vote négatif
La cloche, apparemment ça vient du fait que tu envoies un <Enter> sur une cellule protégée.

[edit]
Je viens de regarder de plus près et c'est plutôt quand tu envoies le <F2> sur une cellule protégée , que ça fait sonner cloche.
Si tu inhibes ta macro et que tu laisses ta feuille protégée, tu constateras que l'appui sur <F2>, sur une cellule protégée, fait sonner la cloche. 😉
[/edit]
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir Lionel, fanch55, Marcel32, JM,

Lionel ton code est inutilement compliqué, ceci est plus simple :
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
CreateObject("wscript.shell").SendKeys "{F2}{ENTER}"
End Sub
Fonctionnement quand la feuille est protégée :

- si la cellule active est verrouillée (ex A1) l'envoie de la touche F2 ouvre un message d'alerte qui est immédiatement fermé par la touche <Entrée>

- si la cellule active est déverrouillée (sur G2:J20) F2 entre le curseur dans la cellule et la touche <Entrée> la valide en déplaçant la sélection vers le bas, la macro est relancée.

Que ce soit avec ton code ou avec le mien il n'y a aucune ouverture de quoi que ce soit chez moi.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Usine à gaz à dit:
Ce qui me gène, c'est l'alerte sonore que je n'arrive pas à neutraliser.
Cliquez pour agrandir...
C'est quoi la question de ce fil en fait !?!

- Tu veux empêcher l'ouverture inopinée de l'explorateur de fichiers (problème que nous n'arrivons pas à reproduire chez nous 🙁) ?
Comme on n'arrive pas à reproduire ce dysfonctionnement chez nous, je crois qu'on ne va pas pouvoir t'aider.

ou alors

- tu veux supprimer la cloche ???
Pour ça, il te suffit de supprimer l'envoie de la simulation de la touche <F2> dans les cellules qui sont protégées :
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 "{F2}"
        CreateObject("wscript.shell").SendKeys "{ENTER}"
'        ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If

End Sub
Ceci dit, je ne vois pas pourquoi tu enlèves la protection de la feuille pour les cellules qui justement ne sont pas protégées, alors je mets les deux lignes en commentaire (mais...).
 
Dernière édition:
Vote positif 0 Vote négatif
J'ai bien dit que la touche F2 crée un message d'erreur, c'est lui qui crée un Beep, on ne peut pas l'éviter.

Sauf à utiliser un autre code :
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not ActiveCell.Locked Then ActiveCell(2).Select
End Sub
qui va bien que la feuille soit protégée ou non.
 

Pièces jointes

Vote positif 0 Vote négatif
Si j'essaye de comprendre le pourquoi du F2+Enter avec le peu d'infos données,
je dirai que les cellules concernées contiennent des formules et le mode Calcul est en manuel.
Ceci permet donc de mettre les formules à jour ( sinon je n'en vois pas l'utilité )
Le code fonctionnel serait ainsi :
VB: 
Private Sub Worksheet_SelectionChange1(ByVal R As Range)
    If Not Intersect(R, Range("g2:j20")) Is Nothing Then
        ActiveSheet.Unprotect Password:=""
        CreateObject("wscript.shell").SendKeys "{F2}{ENTER}"
        ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub



Le code de @job75 (que je salue) est beaucoup plus rapide et évite les scintillements, moyennant une petite modif:
VB: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
    If Not R.Locked Then
        R.Calculate
        R(2).Select
    End If
End Sub
 
Vote positif 0 Vote négatif
Bonsoir à tous,

Merci fanch55 pour ton code 🙂
Effectivement et Merci à Gérard pour ton code nickel et rapide (comme toujours) 🙂
Vraiment merci à tous vous êtes supers !
lionel 🙂

PS pour notre patricktoulon qui m'a mis au défit de trouver des trucs bien loufoques pour ce WE ... hé bien, j'en ai 2 qui seront, je pense, pas mal, pour toi et pour notre mapomme lol 😛
 
Dernière édition:
Vote positif 0 Vote négatif
Usine à gaz à dit:
Merci @fanch55 pour ton code 🙂
Effectivement et Merci à Gérard pour ton code nickel et rapide (comme toujours) 🙂
Cliquez pour agrandir...
Et comme d'hab' le code que je te propose tu t'en cognes et ne le teste même pas, ne serait-ce que pour me dire s'il fonctionne ou pas....

Et moi je reviens tout de même à chaque pour essayer d'aider. 🙄😤😤😤😡😡😡😡🤬🤬🤬🤬🤬
 
Vote positif 0 Vote négatif
Tu as raison marcel j'avais testé ton code qui fonctionne très bien et je t'en remercie.
Désolé, j'avais "oublié" de le dire ..... excuses, excuses 😳
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
377
Phil69970
  • Question Question
XL 2021 Problème ouverture fichier sur feuille protégée
Réponses
6
Affichages
620
treza88
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
631
dadu35
D
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
878
MICHAEL
M
  • Question Question
Microsoft 365 Empêcher l'affichage de la boite de dialogue copier/coller
Réponses
6
Affichages
447
patricktoulon
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
947
Amigo
T
  • Résolu(e)
XL 2010 VBA - Fonction double clics à opérations multiples
Réponses
2
Affichages
333
Titi456
T
  • Question Question
XL 2016 Impossible de SendKeys une tabulation
Réponses
4
Affichages
595
R1-
  • Question Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
420
AugusteP
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
561
Phil69970
  • Résolu(e)
XL 2021 touches Ctrl+R pour revenir
Réponses
4
Affichages
487
TooFatBoy
D
  • Question Question
Microsoft 365 Historique des modifications
Réponses
11
Affichages
869
sylvanu
  • Question Question
XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()
3 4 5
Réponses
62
Affichages
3 K
Usine à gaz
  • Question Question
Microsoft 365 simuler clic sur un bouton macro
Réponses
12
Affichages
1 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
1 K
PatFr38
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
1 K
Fabrice16ct
F
  • Question Question
XL 2016 protéger et déprotéger plusieurs feuilles par macro
Réponses
4
Affichages
835
halecs93
  • Résolu(e)
Microsoft 365 Variable non définie
Réponses
12
Affichages
1 K
Usine à gaz
  • Question Question
Microsoft 365 UserForm zoom affichage
Réponses
7
Affichages
889
ChTi160
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…