Alt+F4

[nesta656]

Bonjour
est il possible de desactiver la fonction ALt+F4
pour eviter de fermer le Userform
merci

 

[Jacky]

Bonsoir

voici un bout de code à placer dans une macro

Sub supprimer()
With Application
.OnKey'%{F4}',''
End with
End sub

et pour réactiver

Sub remettre()
With Application
.OnKey'%{F4}'
End with
End sub

tu peux aussi mettre le premier code dans Worbook_Open()) et le deuxième dans WorkBook_BeforeClose, comme ça l'effet durera de l'ouverture à la fermeture du fichier.
Mais surtout n'oublie pas de réactiver avant de fermer

bon courage

 

[nesta656]

merci
voila je suis débutant et j ai essayer ce code
mais ya pas moyen que ca marche

 

[Jacky]

j'ai réalisé la manip
Est-ce que tu voulais bien cela ? [file name=F4.zip size=4751]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/F4.zip[/file]

 

[nesta656]

Merci a toi de me repondre pour la deuxieme fois
mais ce code fonctionne pour empecher la fermeture d une feuille excel avec ALt+F4
et non la fermeture d un user-form

encore une fois merci a tous!!!

 

[Temjeh]

Bonsoir à tous

Chez-moi ce code placé dans Uform déactive le Alt+F4 et le X

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Temjeh

Ps: à prévoir un bouton unload me caché