Emmelage de pinceaux

Le
pb
Bonjour,
J'ai déjà posté ce fil mais je cherche, je cherche et rien.
Donc Excel 2007 aurait-il des limites?
Redite de mon souci
Interdire la fermeture d'Excel 2207 de l'appli et du classeur par la croix.
Donc dans le ruban c'est bon j'ai trouvé avec
<command idMso="WindowClose" enabled="false"/>

Par contre il existe toujours la possibilité de fermer l'appli Excel en elle
même.

Laurent Longre avait édité un classeur sous 2003 qui ne fonctionne pas sous
2007

J'ai fais tous les forums de France et de Navarre et rien

Donc quand je vais demander comment virer le bouton officeMenu, je vais
pleurer car rien non plus.

Si quelqu'un a des idées, des pistes, des éclairages je suis preneur.

Merci à vous

Pascal

Drole de tête mon message
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19877871
Bonjour,

Un fichier exemple ; http://cjoint.com/?ids00Doo8U
Cela ne fait pas disparaître le bouton mais inhibe son action de fermeture du classeur

Le code dans un module standard :

'Haut du module, Déclaration des API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, _
ByVal fEnable As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) _
As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Const SC_CLOSE As Long = &HF060


'--------------------------------------
Sub SupprimerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'inhibe la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 0)
DeleteMenu hMenu, SC_CLOSE, 0&
DrawMenuBar myhWnd
End Sub
'--------------------------------------
Sub RestaurerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'Active la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 1)
DrawMenuBar myhWnd
End Sub
'--------------------------------------







"pb"
Bonjour,
J'ai déjà posté ce fil mais je cherche, je cherche et rien.
Donc Excel 2007 aurait-il des limites?
Redite de mon souci
Interdire la fermeture d'Excel 2207 de l'appli et du classeur par la croix.
Donc dans le ruban c'est bon j'ai trouvé avec
<command idMso="WindowClose" enabled="false"/>

Par contre il existe toujours la possibilité de fermer l'appli Excel en elle
même.

Laurent Longre avait édité un classeur sous 2003 qui ne fonctionne pas sous
2007

J'ai fais tous les forums de France et de Navarre et rien

Donc quand je vais demander comment virer le bouton officeMenu, je vais
pleurer car rien non plus.

Si quelqu'un a des idées, des pistes, des éclairages je suis preneur.

Merci à vous

Pascal

Drole de tête mon message
pb
Le #19879931
Désolé mais cela ne fonctionne pas sous 2007 il est toujours possible de
fermer le classeur.
Pascal
"MichDenis"
Bonjour,

Un fichier exemple ; http://cjoint.com/?ids00Doo8U
Cela ne fait pas disparaître le bouton mais inhibe son action de fermeture
du classeur

Le code dans un module standard :

'Haut du module, Déclaration des API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, _
ByVal fEnable As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) _
As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Const SC_CLOSE As Long = &HF060


'--------------------------------------
Sub SupprimerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'inhibe la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 0)
DeleteMenu hMenu, SC_CLOSE, 0&
DrawMenuBar myhWnd
End Sub
'--------------------------------------
Sub RestaurerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'Active la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 1)
DrawMenuBar myhWnd
End Sub
'--------------------------------------







"pb"
Bonjour,
J'ai déjà posté ce fil mais je cherche, je cherche et rien.
Donc Excel 2007 aurait-il des limites?
Redite de mon souci
Interdire la fermeture d'Excel 2207 de l'appli et du classeur par la
croix.
Donc dans le ruban c'est bon j'ai trouvé avec
<command idMso="WindowClose" enabled="false"/>

Par contre il existe toujours la possibilité de fermer l'appli Excel en
elle
même.

Laurent Longre avait édité un classeur sous 2003 qui ne fonctionne pas
sous
2007

J'ai fais tous les forums de France et de Navarre et rien

Donc quand je vais demander comment virer le bouton officeMenu, je vais
pleurer car rien non plus.

Si quelqu'un a des idées, des pistes, des éclairages je suis preneur.

Merci à vous

Pascal

Drole de tête mon message



MichDenis
Le #19881171
Ces procédures je l'ai testées sous Excel 2007 et Vista.
et elles fonctionnent très bien. Elles s'appliquent aussi
pour Windows Xp et Excel 2003.



"pb"
Désolé mais cela ne fonctionne pas sous 2007 il est toujours possible de
fermer le classeur.
Pascal
"MichDenis"
Bonjour,

Un fichier exemple ; http://cjoint.com/?ids00Doo8U
Cela ne fait pas disparaître le bouton mais inhibe son action de fermeture
du classeur

Le code dans un module standard :

'Haut du module, Déclaration des API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, _
ByVal fEnable As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) _
As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Private Const SC_CLOSE As Long = &HF060


'--------------------------------------
Sub SupprimerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'inhibe la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 0)
DeleteMenu hMenu, SC_CLOSE, 0&
DrawMenuBar myhWnd
End Sub
'--------------------------------------
Sub RestaurerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'Active la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 1)
DrawMenuBar myhWnd
End Sub
'--------------------------------------







"pb"
Bonjour,
J'ai déjà posté ce fil mais je cherche, je cherche et rien.
Donc Excel 2007 aurait-il des limites?
Redite de mon souci
Interdire la fermeture d'Excel 2207 de l'appli et du classeur par la
croix.
Donc dans le ruban c'est bon j'ai trouvé avec
<command idMso="WindowClose" enabled="false"/>

Par contre il existe toujours la possibilité de fermer l'appli Excel en
elle
même.

Laurent Longre avait édité un classeur sous 2003 qui ne fonctionne pas
sous
2007

J'ai fais tous les forums de France et de Navarre et rien

Donc quand je vais demander comment virer le bouton officeMenu, je vais
pleurer car rien non plus.

Si quelqu'un a des idées, des pistes, des éclairages je suis preneur.

Merci à vous

Pascal

Drole de tête mon message



pb
Le #19881161
Bah je ne sais pas ce que je fais mais chez moi non
"MichDenis"
Ces procédures je l'ai testées sous Excel 2007 et Vista.
et elles fonctionnent très bien. Elles s'appliquent aussi
pour Windows Xp et Excel 2003.



"pb"
Désolé mais cela ne fonctionne pas sous 2007 il est toujours possible de
fermer le classeur.
Pascal
"MichDenis"
Bonjour,

Un fichier exemple ; http://cjoint.com/?ids00Doo8U
Cela ne fait pas disparaître le bouton mais inhibe son action de
fermeture
du classeur

Le code dans un module standard :

'Haut du module, Déclaration des API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, _
ByVal fEnable As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) _
As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long,
_
ByVal bRevert As Long) As Long
Private Const SC_CLOSE As Long = &HF060


'--------------------------------------
Sub SupprimerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'inhibe la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 0)
DeleteMenu hMenu, SC_CLOSE, 0&
DrawMenuBar myhWnd
End Sub
'--------------------------------------
Sub RestaurerBoutonFermeture()

Dim myhWnd As Long, hMenu As Long

'Active la petite croix
myhWnd = FindWindow("XLMAIN", Application.Caption)
hMenu = GetSystemMenu(myhWnd, 1)
DrawMenuBar myhWnd
End Sub
'--------------------------------------







"pb"
Bonjour,
J'ai déjà posté ce fil mais je cherche, je cherche et rien.
Donc Excel 2007 aurait-il des limites?
Redite de mon souci
Interdire la fermeture d'Excel 2207 de l'appli et du classeur par la
croix.
Donc dans le ruban c'est bon j'ai trouvé avec
<command idMso="WindowClose" enabled="false"/>

Par contre il existe toujours la possibilité de fermer l'appli Excel en
elle
même.

Laurent Longre avait édité un classeur sous 2003 qui ne fonctionne pas
sous
2007

J'ai fais tous les forums de France et de Navarre et rien

Donc quand je vais demander comment virer le bouton officeMenu, je vais
pleurer car rien non plus.

Si quelqu'un a des idées, des pistes, des éclairages je suis preneur.

Merci à vous

Pascal

Drole de tête mon message






Publicité
Poster une réponse
Anonyme