rendre inactif la petite croix rouge

Question

bonjour,

je sais que c chiant ce genre de questions tjrs rabach&#233;es... mais en d&#233;pit d'un regard attentif sur les forums je n'ai pas r&#233;ussi &#224; comprendre grd chose..

alors voil&#224; je souhaiterais rendre inactif la petite croix rouge sur mon classeur excel!!

Merci aux courageux!!
Achi!

BasicInstinct · Answer

Salut, a mon humble avis, tu n'as pas trop eu le regard "attentif", m'enfin bon Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Private Sub DesactiveX() Dim hMenu As Long Dim nCount As Long hMenu = GetSystemMenu(Application.hwnd, 0) nCount = GetMenuItemCount(hMenu) Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION) DrawMenuBar Application.hwnd End Sub BasicInstinct

cs_Achi · Answer

salu BasicInstinct!!

pourtant si mais &#233;tant donn&#233; que je suis novice... m&#234;me ce que tu m'a donn&#233; est difficile pr moi...

enfin je l'aimis ds mon code maisla premi&#232;re ligne n'est pas accept&#233;e (elle reste en rouge)

et petite question suppl&#233;mentaire !! avec ce code .. ne faut -il pas re-activer l'ens av de quitter l'application (au risque de l'avoir d&#233;sactiv&#233; pr l'ens des classeurs excel)????

Achi!

cs_Achi · Answer

c cor Achi!!

la premi&#232;re ligne est accept&#233;e mais le code ne fonctionne pa!!

y a t-il une erreur ds le code ou c moi qui l'ai cr&#233;e???

BasicInstinct · Answer

les 4 declarations : Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long sont à mettre au debut du module, ou dans un module à part (replacer les Private pas Public) ce sont des API, c'est pour ca que le code semble obscur, mais tu verras, on s'y habitue. logiquement, la croix devrait etre active à la reouverture du classeur (a verifier quand meme). le code fonctionne avec WinXP, Office XP, mais je ne l'ai pas testé avec d'autres configurations, mais a priori ca ne devrait pas poser de probleme sur les Office 2000 & 2003. j'ai un doute quant à Office 97. Normalement ces API existent depuis windows 3.1, donc pas de soucis d'OS BasicInstinct

Renfield · Answer

c'est sur que si tu as tap&#233; "petite croix rouge", tu vas pas trouver grand chose ^^

d&#233;sactiver bouton fermer

http://www.vbfrance.com/recherche.aspx?r=d%e9sactiver+bouton+fermer&tr=source

Renfield
Admin CodeS-SourceS - MVP Visual Basic

BasicInstinct · Answer

perso, je me suis content&#233; de chercher desactiveX mais bon ca compte pas, je me ballade sur CS depuis un temps ou les login et password n'existaient pas 

 BasicInstinct

Rendre inactif la petite croix rouge

6 réponses

Discussions similaires