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:

fanch55

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

Staple1600

XLDnaute Barbatruc
[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.
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
[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

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

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

TooFatBoy

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

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 870
dernier inscrit
Dethomas