essai d'un codeRésolu

Question

bonjour,

Qlq'un pourrait-il essayer ce code chez lui sous VBA excel, et me dire pourquoi il ne fonctionne pa alors que la source &#224; l'air correcte!!

Merci, Achi! 
 PS: pr info j'ai mis le tt dans un module!!

'*****************************************
' Dans la partie d&#233;claration du formulaire
'*****************************************
Public Const MF_BYPOSITION = &H400&
  
'Cette fonction API sert &#224; prendre le menu qui appara&#238;t lors du clic en haut &#224; gauche du form (sous-menus "Restaurer", "D&#233;placer", "R&#233;duire", "Fermer", ...)
Public Declare Function GetSystemMenu _
   Lib "user32" _
   (ByVal hwnd As Long, _
   ByVal bRevert As Long) As Long
  
'Cette fonction API sert &#224; enlever un de ces sous-menus
Public Declare Function RemoveMenu _
   Lib "user32" (ByVal hMenu As Long, _
   ByVal nPosition As Long, _
   ByVal wFlags As Long) As Long
  
'Cette fonction API sert &#224; conna&#238;tre le nombre de sous-menus dans ce m&#234;me menu
Public Declare Function GetMenuItemCount _
   Lib "user32" _
   (ByVal hMenu As Long) As Long
  
  
  
'*******************************************
' Dans la partie programmation du formulaire
'*******************************************
Public Sub DesactiverX(f_hwnd As Long)
  
Dim lSysMenu As Long
Dim lItemCount As Long
Dim lRet As Long
  
'Prend l'ID du menu
lSysMenu = GetSystemMenu(f_hwnd, False)
  
'Prend le nombre d'objet (sous-menus) du menu
lItemCount = GetMenuItemCount(lSysMenu)
  
'Suppression de sous-menu
lRet = RemoveMenu(lSysMenu, lItemCount - 1, MF_BYPOSITION)
lRet = RemoveMenu(lSysMenu, lItemCount - 2, MF_BYPOSITION)
lRet = RemoveMenu(lSysMenu, lItemCount - 3, MF_BYPOSITION)
lRet = RemoveMenu(lSysMenu, lItemCount - 4, MF_BYPOSITION)
  
End Sub

rvblog · Accepted Answer

Salut Achi, salut à tous, je suis d'accord avec eux, t'es un mec dangereux :) Sans sortir l'artillerie lourde, tu ne peux pas capter la fermeture d'Excel. Mais c'est plutôt l'utilité de ton bouton "Fermer Excel" qu'il faut remettre en cause. Un process a mille et un moyens de se retrouver "arrêté" (en fait à peu près 5, ou 6 si en plus il manifeste contre le CPE), et quelque chose me dit que tu auras du mal à tous les détecter de l'intérieur de classeur. Par contre, il est certainement plus facile de détecter la fermeture du classeur, voire même de l'empêcher, ou de faire le nécessaire avant et de le fermer. Le Guide de Style de Programmation Windows n'invite pas les développeurs à empêcher un utilisateur de faire ce qu'il veut, au contraire, à l'aider à faire ce qu'il veut. Ce qui n'exclue pas que le développeur fasse faire à l'application un certain traitement qui permet de remettre le contexte d'exécution dans un état stable (et ici le contexte de fin d'exécution stable induit une satbilisation du prochain contexte d'exécution). Essaies ça : Private WithEvents xlApp As Excel.Application' pour recevoir les évènements de l'application Private Sub Workbook_Open() Set xlApp = Application' affecte une référence à l'application End Sub Private Sub xlApp_WorkbookBeforeClose( Byval Wb As Workbook, Cancel As Boolean) 'ici, un éventuel traitement de remise en état stable du contexte d'exécution Cancel = True' annule la fermeture du classeur, ou pas, c'est au choix End Sub PS: "c quoi ma form???", un formulaire utilisateur (UserForm), est un formulaire définit (dessiné, contenant ou pas des contrôles, et des traitements associés aux contrôles et au formulaire) qui permet des intéractions évoluées entre ton application et l'utilisateur. à+ rvblogn^{Je veux ton bien... et je l'aurais}

cs_Jack · Answer

Salut
C'est un peu juste comme question. Surtout que le but est de supprimer des menus !
Dis nous ce que tu essayes de faire et ce qui se passe chez toi.
As-tu un message d'erreur ?
As-tu suivi ligne par ligne le code ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

mcs2006 · Answer

Bonjour,

Pourquoi n'essaies-tu pas ton code chez toi d'abord ? Tu cherches des cobayes ?

cs_Achi · Answer

salu,

sisi je l'ai essay&#233; mais ca ne fonctionne pas, je d&#233;bute en VBA et je ne vois pas le probl&#232;me qu'il y a!

g mis ce code ds un de mes modules, puis ds Thisworksbook je lance le sub DesactiverX.... comme ca &#224; l'ouverture du fichier il m'execute ce code (normalement) 
 et l&#224; il me mets un msg d'erreur "argument non facultatif" 
 et si je mets &#231;&#224; : DesactiverX(f_hwnd As Long) il ne prend pa la syntaxe!!

alors c'est vrai je ne comprends pas tt mais je cherche &#224; apprendre!!

et non je ne cherche pas de cobayes puisque je l'ai essay&#233;, et comme ca ne fonctionne pa j'me suis dis que de chez vous verrai peut-&#234;tre le probl&#232;me.

voilivoilou!!

merci de m'aider!! Achi!!

kalobit · Answer

salut,

ce code fonctionnera certainement sans probl&#232;me en VB6 mais l&#224;, tu en demande trop &#224; Excel.

en fait, il faut passer le Handle de la fen&#234;tre sur laquelle tu veux agir comme argument &#224; ta sub desactiverX
Le Pb c'est que tu peut pas r&#233;cupperer ce Handle pour un formulaire VBA. Donc ton code ne pourra pas s'appliquer dans Excel.

&#233;ventuellement, tu peut rechercher le nom du menu et r&#233;cuperer le commandbarbutton pour le supprimer mais je suis pas certain que t'y arrive.

comme visiblement tu cherche &#224; emp&#234;cher la fermeture d'un formulaire par la croix ou par le menu, essaye &#231;a :

Rajoute le code &#233;v&#232;nement dans ta form et test si &#231;a fonctionne

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode 0 Then Cancel True
End Sub

++++
K@lobit

cs_Achi · Answer

salu Kalobit,

Bah non ca ne fonctionne pa, tant pis!!

apparemment c pa possible donc c pa grave je ferais ac..

Merci &#224; ts ceux qui m'ont aid&#233;!!! Achi!

kalobit · Answer

ce que je te propose ne supprime pas l'option fermer mais la bloque.

Si &#231;a marche pas, faudrait m'en dire d'avantage parceque j'utilise ce truc depuis des ann&#233;es et j'ai jamais ue de soucis.

+++

cs_Achi · Answer

bah en fait g mis ton code ds la partie programation VBA  de ma feuil1, et rien ca ne fonctionne pas!! aucuns msg d'erreur pourtant!

je veux eviter que l'utilisation puisse fermer excel, car g cr&#233;&#233; un bouton qui s'en charge!!

mais com je d&#233;bute il est possible que j'ai mis ton code au mauvais endroit!!

qd tu dit mets ce code ds ta form, c quoi ma form???

Achi!!

cs_Achi · Answer

salu Rvblog,

merci pour ton code il fonctionne &#224; merveille!!

par contre dsl pr ton PS: g pa tt compris, jsuis peut-&#234;tre dangereux mais toi t compliqu&#233; lol!!!!

Achi!

rvblog · Answer

Là, tu as plus que raison ! mais maintenant, tu sais ce qu'il te reste à investiguer. PS : je suis toujours aussi surpris de voir des membres mieux comprendre un code informatique en VB, qu'une bonne vieille phrase en français, avec des virgules, des parenthèses, des guillemets (full option). Achi, tu essaies de nous cacher tes origines :) rvblogn^{Je veux ton bien... et je l'aurais}

Essai d'un code

10 réponses

Discussions similaires