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" a écrit dans le message de groupe de discussion :
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
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" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
Odk8JTFFKHA.4004@TK2MSFTNGP05.phx.gbl...
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
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" a écrit dans le message de groupe de discussion :
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
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" a écrit dans le message de groupe de discussion :
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
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" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
Odk8JTFFKHA.4004@TK2MSFTNGP05.phx.gbl...
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
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" a écrit dans le message de groupe de discussion :
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
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" a écrit dans le message de groupe de discussion :
Désolé mais cela ne fonctionne pas sous 2007 il est toujours possible de
fermer le classeur.
Pascal
"MichDenis" a écrit dans le message de news: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" a écrit dans le message de groupe de discussion :
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
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" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
OsPdelMFKHA.3708@TK2MSFTNGP02.phx.gbl...
Désolé mais cela ne fonctionne pas sous 2007 il est toujours possible de
fermer le classeur.
Pascal
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O46PKtFFKHA.3556@TK2MSFTNGP04.phx.gbl...
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" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
Odk8JTFFKHA.4004@TK2MSFTNGP05.phx.gbl...
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
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" a écrit dans le message de groupe de discussion :
Désolé mais cela ne fonctionne pas sous 2007 il est toujours possible de
fermer le classeur.
Pascal
"MichDenis" a écrit dans le message de news: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" a écrit dans le message de groupe de discussion :
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