Désactiver la croix de l'application (pourquoi mon code ne marche pas ?)

Résolu
Signaler
Messages postés
21
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
17 août 2007
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour,

Voilà je voulais empêcher l'utilisateur de fermer une application excel ouverte par programme.
J'ai tapé le code suivant :

Dim NewApp As New Excel.Application
NewApp.CommandBars("System").Controls(6).Enabled = False
NewApp.Visible = True

Mais sans succes, le controle qui a pourtant pour caption "&Fermeture" a bien le enable à "false" mais la croix de l'appli excel fonctionne toujour ??????????????????????

Je comprends pas, si quelqu'un a une explication !

Merci.

3 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
tout ce qu'il te faut, c'est un hWnd....

Renfield
Admin CodeS-SourceS - MVP Visual Basic
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
tu peux utiliser
http://www.desertware.com/vbuniverse/disablewindowclose.htm

Renfield
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
21
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
17 août 2007
16
Ok on dirait que ça pourrait marcher, mais comment tu l'utilise sur NewApp ?