Alt F11

Bonjour au forum

Avez vous une solution pour afficher un userform quand on fait un Alt F11.

Merci d'avance

Citaro

Bonjour,

Alt+F11 est un raccourci clavier pour afficher l'éditeur VBA...

Si tu as programmé un Userform, il s'affichera avec la commande que tu as prévue pour cela. Si tu as oublié de le prévoir, il te faut réparer cet oubli.

Cordialement.

Bonsoir,

Oui c'est un raccourci clavier

Je voulais savoir si on fait Alt F11 peut-on empêcher l'affichage de l'éditeur VBA et faire afficher un userform

Citaro

Les moyens d'afficher un Userform ne manquent pas ! Pourquoi vouloir détourner un raccourci existant depuis l'origine de VBA dans Excel !

En fait, c'est pour renforcer la sécurité du code.

Si on ouvre l'éditeur VBA, le code et les feuilles sont supprimées

Pour protéger le code, tu mets un mot de passe pour y accéder...

Si on ouvre l'éditeur VBA, le code et les feuilles sont supprimées

Oui on peut mais la sécurité du mot de passe peut se contourner.

Pour l'instant je fais comme ceci :

Sub AltF11Pressed()

If MsgBox("Si tu continues, toutes les données seront supprimées !", vbYesNo, "Confirmation") = vbYes Then

' Application.OnKey "%{F11}"

' Application.SendKeys "%{F11}"

Supprimer_toutes_macros

End If

End Sub

Sub Supprimer_toutes_macros()

Dim VBC As Object

With ActiveWorkbook.VBProject

For Each VBC In .VBComponents

If VBC.Type = 100 Then

With VBC.CodeModule

.DeleteLines 1, .CountOfLines

.CodePane.Window.Close

End With

Else

.VBComponents.Remove VBC

End If

Next VBC

End With

Sheets("Feuil1").Delete

End Sub

Bonne journée

Bon amusement !