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

 

[Usine à gaz]

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]

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

 

[TooFatBoy]

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]

Ton ami Job devrait rapidement te trouver une solution.


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

 

[fanch55]

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]

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

 

[Staple1600]

[excusez-moi- I can't resist]

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]

[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]

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

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]

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

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]

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]

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]

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]

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]

Re

Lionel
Voir message précédent