XL 2016 [VBA] Verrouiller la session Windows en VBA ?

[F22Raptor]

Bonjour à tous,
Je me demandais s'il exister un code VBA simple, qui permette de verrouiller la session Windows.
Etant donné que ça correspond à la combinaison de touches WIN+L, peut-être un sendkeys ? Mais comment, par Sendkeys, envoyer une combinaison de touches, en même temps, et pas WIN suivi de L ?

Qu'en pensez-vous ?

 

[patricktoulon]

bonjour

3 méthodes fonctionnelles sur Win 7/8/10/11

'méthode 1 avec l'api

Private Declare PtrSafe Function LockWorkStation Lib "user32.dll" () As Long ' à mettre en haut de module

Sub VerrouillerSession()
    LockWorkStation
End Sub

'----------------------------------------------------------
'méthode 2 avec le sendkeys avec wscript.shell créé dinamico

Sub VerrouillerSession_Wsh()
    CreateObject("WScript.Shell").SendKeys "^{L}" ' Simule Win + L
End Sub

'----------------------------------------
'méthode 3 avec le run d'un wscript.shell créé dinamico argument shutdown" et -1 pour ne fermer que la session

Sub FermerSession()
   CreateObject("WScript.Shell").Run "shutdown -l", 0, False
End Sub

la meilleur solution etant celle avec l'api
la wscript.shell.send keys a tendence a taper dans le vide (une histoire de focus)
la methode run fonctionne parfaitement bien si tu es allergique aux apis

et j'en ai plein d'autres comme ça si tu veux
patrick

 

[F22Raptor]

Excellent ! Merci Patrick : la première marche parfaitement
😃

 

[patricktoulon]

re
👍 pointe le sujet résolu alors pour clôturer
et pour le coup si ça t’intéresse j'ai écris un petit topic dans les astuces

Discussion 'fermer la session éteindre le pc etc... sous toute les formes'

8 Avril 2025

Bonjour à tous
une demande viens d'être faite sur le moyen de fermer ou verrouiller la session Windows et même fermer Windows par vba
comme j’étais justement en train de travailler dessus je vous donne une playade de solutions

Private Declare PtrSafe Function LockWorkStation Lib "user32.dll" () As Long ' à mettre en haut de module

'méthode 1 avec l'api
Sub VerrouillerSession()
    LockWorkStation
End Sub

'méthode 2 avec le sendkeys avec   wscript.shell créé dinamico
Sub VerrouillerSession_Wsh()
    CreateObject("WScript.Shell").SendKeys "^{L}" ' Simule Win + L
End Sub

'méthode...

• patricktoulon
• api éteindre fermer session windows wscript.shell
• Réponses: 5
• Forum: Trucs et astuces

• 
• 

 

[F22Raptor]

re
👍 pointe le sujet résolu alors pour clôturer
et pour le coup si ça t’intéresse j'ai écris un petit topic dans les astuces

Discussion 'fermer la session éteindre le pc etc... sous toute les formes'

8 Avril 2025

Bonjour à tous
une demande viens d'être faite sur le moyen de fermer ou verrouiller la session Windows et même fermer Windows par vba
comme j’étais justement en train de travailler dessus je vous donne une playade de solutions

Private Declare PtrSafe Function LockWorkStation Lib "user32.dll" () As Long ' à mettre en haut de module

'méthode 1 avec l'api
Sub VerrouillerSession()
    LockWorkStation
End Sub

'méthode 2 avec le sendkeys avec   wscript.shell créé dinamico
Sub VerrouillerSession_Wsh()
    CreateObject("WScript.Shell").SendKeys "^{L}" ' Simule Win + L
End Sub

'méthode...

• patricktoulon
• api éteindre fermer session windows wscript.shell
• Réponses: 5
• Forum: Trucs et astuces

• 
• 

done ! 🙂

 

[patricktoulon]

re
click dessus dans le post précedent 😉

 

[F22Raptor]

Pour moi j'ai bien le pouce + la coche verte "résolu"
Tu ne les vois pas chez toi ?

 

[patricktoulon]

re ben non puisque c'est toi l'auteur de la discussion
je le vois que si tu a coché et ça devient vert
avant je ne le vois pas 😉

 

[F22Raptor]

Normalement ça devrait être bon : je vois bien ton post en solution, en vert !

 

[patricktoulon]

oui je l'ai vu mais avant je ne pouvais pas le voir mais c'est pas très important
l'important est que tu ai ta solution
tu es allé voir le lien ?

 

[F22Raptor]

oui je l'ai vu mais avant je ne pouvais pas le voir mais c'est pas très important
l'important est que tu ai ta solution
tu es allé voir le lien ?

J’ai encore loupé un truc ! 😁
Je ne vois pas de lien ?

 

[patricktoulon]

c'est tout ça le lien

 

[F22Raptor]

🤦‍♂️ Toutes mes confuses ! Je regarde ça

Je sens que ça va m'inspirer pour une macro qui ferme toutes les applis et lance le redémarrage de session en quittant le bureau le soir !
🙏

 

[Lolote83]

Bonsoir à tous.
Avec la méthode 2 de @patricktoulon (que je salue au passage) si on veux faire une simulation de 3 touches.
Exemple : Win + Shift + Fleche Droite (ou Gaucher), cela s'écrivait comment du coup ?
Merci
@+ Lolote83

 

[patricktoulon]

bonsoir @Lolote83
elle sont sensées faire quoi ces touches combinées