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

Usine à gaz · 25 Mars 2022

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

Usine à gaz · 25 Mars 2022

Staple1600 à dit:
Re

Dans ce cas, explicite pourquoi tu as besoin absolu?
Décris le contexte
Car selon celui-ci, il existe peut-être des biais qui évite de passer par wscript.shell
(et donc ne pas générer le problème dans le message#1)

Parce que dans mes usines à gaz, les simulations de touches génèrent des actions dont j'ai besoin

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
il génère une sonnerie d'alerte dont je n'arrive pas à me débarrasser

Ah ! Je croyais que c'était volontaire cette cochonnerie fortement désagréable !

Usine à gaz · 25 Mars 2022

Staple1600 à dit:
Re

Lionel
Voir message précédent

JM : j'ai du mal à suivre ... quel #post STP ?

Staple1600 · 25 Mars 2022

Re

Parce que dans mes usines à gaz, les simulations de touches génèrent des actions dont j'ai besoin

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.

Usine à gaz · 25 Mars 2022

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.

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.

TooFatBoy · 25 Mars 2022

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]

job75 · 25 Mars 2022

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+

Usine à gaz · 25 Mars 2022

Bonsoir er Merci Gérard,

En pas à pas, le code génère :

Ce n'est pas ça qui me gène.
Ce qui me gène, c'est l'alerte sonore que je n'arrive pas à neutraliser.
lionel

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
Ce qui me gène, c'est l'alerte sonore que je n'arrive pas à neutraliser.

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...).

job75 · 25 Mars 2022

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.

Usine à gaz · 25 Mars 2022

Oui Marcel, c'est bien la cloche qui me gène.
Merci Gérard, je vais tester dans mon fichier avec ce nouveau code.
lionel

fanch55 · 25 Mars 2022

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

Usine à gaz · 25 Mars 2022

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

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
Merci @fanch55 pour ton code
Effectivement et Merci à Gérard pour ton code nickel et rapide (comme toujours)

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.

Usine à gaz · 25 Mars 2022

Marcel32 à dit:
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.

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Discussions similaires