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

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

là n'est pas mon souci Marcel

TooFatBoy · 25 Mars 2022

Pour être sûr :
1- tu ouvres le fichier de #1
2- tu cliques dans ton tableau
3- ça t'ouvre VBE ???

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
là n'est pas mon souci Marcel

Je sais bien !!! Et c'est bien pour ça que j'ai dit que c'était juste une remarque !

Le "(mais...)" voulait dire "(mais... tu n'en tiendras pas compte et continueras à les utiliser...)".

TooFatBoy · 25 Mars 2022

Ton ami Job devrait rapidement te trouver une solution.

Bon week-end, camarade et à bientôt sûrement
Longue vie et prospérité

fanch55 · 25 Mars 2022

Salut à tous,
C'est bien pour ça que je demande ce que tu veux faire .
Ce n'est pas wscript.shell qui ouvre quoi que ce soit, il ne fait qu'envoyer la clé à la fenêtre active.

Dans Excel la feuille,

F2 te fait entrer en mode Edition dans la cellule

Enter te fait passer à la cellule de la ligne suivante

Dans Vbe

F2 t'ouvre l'explorateur d'objet

Enter t'insère une ligne vierge dans le code en cours

Usine à gaz · 25 Mars 2022

Re-fanch55

Merci pour l'explication.
Est-il possible de faire en sortes que "F2" n'ouvre pas l'explorateur ?

Staple1600 · 25 Mars 2022

[excusez-moi- I can't resist]

Somebody à dit:
Ce n'est pas wscript.shell qui ouvre quoi que ce soit, il ne fait qu'envoyer la clé à la fenêtre active.

J'eusse dit la key
Et si j'eusse dit la key, j'eusse dit la gate ou la door et non point la windows.
Car je fiche toujours ma clé dans la porte, jamais dans la fenêtre.
[/excusez-moi- I can't resist]

Ceci étant dit, pourquoi ces SendKeys ?

Et pourquoi un mot de passe vide ? Où comme dit Marcel pourquoi utiliser la protection Excel qui protège aussi bien qu'une cuillère à soupe au dessus de la teuté protège de la pluie ?

Bonsoir, au revoir, merci.

Usine à gaz · 25 Mars 2022

Staple1600 à dit:
[excusez-moi- I can't resist]

J'eusse dit la key
Et si j'eusse dit la key, j'eusse la gate et non point la windows
Car je fiche toujours ma clé dans la porte, jamais dans la fenêtre
[/excusez-moi- I can't resist]

Ceci étant dit, pourquoi ces SendKeys ?

Et pourquoi un mot de passe vide ? Où comme dit Marcel pourquoi utiliser la protection Excel qui protège aussi bien qu'une cuillère à soupe au dessus de la teuté protège de la pluie ?

Bonsoir, au revoir, merci.

Bonsoir JM
Les senkeys c'est pour simuler des touches (mais je pense que tu le sais lol)
Ce code, comme je l'ai dit à Marcel ne sert à rien, c'est juste pour montrer ma demande pour quelqu'un qui veut bien télécharger le fichier et exécuter le code pas à pas.
la protection Excel : ce serait long à expliquer mais j'y tiens et ce n'est pas l'objet de ma demande lol
lionel

Staple1600 · 25 Mars 2022

Re

Comme je ne suis sur de ce que doit faire le code
Cette version modifiée du code initial ne fait pas réagir mon explorateur VBE

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("G2:J20")) Is Nothing Then
ActiveSheet.Unprotect
R.Locked = False
R.Calculate
ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Usine à gaz · 25 Mars 2022

Staple1600 à dit:
Re

Comme je ne suis sur de ce que doit faire le code
Cette version modifiée du code initial ne fait pas réagir mon explorateur VBE

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range) If Not Intersect(R, Range("G2:J20")) Is Nothing Then ActiveSheet.Unprotect R.Locked = False R.Calculate ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub

Merci JM mais j'ai absolument des :
- CreateObject("wscript.shell").SendKeys "{F2}"
- CreateObject("wscript.shell").SendKeys "{ENTER}"
Mais je suis certain que ton code fonctionne

Usine à gaz · 25 Mars 2022

Mais puisque je tiens à garder dans le code les :
- CreateObject("wscript.shell").SendKeys "{F2}"
- CreateObject("wscript.shell").SendKeys "{ENTER}"
Il n'y a peut-être pas de solution à ma demande ?
lionel

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
Ce code, comme je l'ai dit à Marcel ne sert à rien, c'est juste pour montrer ma demande pour quelqu'un qui veut bien télécharger le fichier et exécuter le code pas à pas.

L'exécuter en pas à pas n'a aucun intérêt puisqu'on sait que ça va ouvrir l'explorateur d'objets, et puisque ce n'est pas en pas à pas que tu as le problème mais en utilisation standard.

Staple1600 · 25 Mars 2022

Re

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

Usine à gaz · 25 Mars 2022

Marcel32 à dit:
L'exécuter en pas à pas n'a aucun intérêt puisqu'on sait que ça va ouvrir l'explorateur d'objets, et puisque ce nest pas en pas à pas que t as le problème mais en utilisation standard.

OUI Marcel ce que tu dis est vrai mais en fait, il génère une sonnerie d'alerte dont je n'arrive pas à me débarrasser

Staple1600 · 25 Mars 2022

Re

Lionel
Voir message précédent

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires