Faire disparaitre les boutons réduction, pleine page et fermer ?

Bonjour Bob,
Ce que tu souhaites est possible ; à défaut d'avoir le code sous la main et de pouvoir te l'indiquer
ici, Google propose 293 réponses pour croix de fermeture ici :

http://groups.google.com/groups?as_epq=croix%20de%20fermeture&ie=UTF-8&as_ugroup=microsoft.public.fr.excel&lr=&hl=fr

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Bob le retour" <nospam@nospam.no> a écrit dans le message de news:40BACC0C.5DED7926@nospam.no...

Bonjour,
Existe-t-il une commande VBA qui fasse disparaître la croix qui permet
de
fermer une feuille sans passer par le menu, ainsi que les boutons pleine
page et réduction ?

Bonjour Bob,
A mettre dans le module de ta Form, en parlant de feuille tu parle bien
d'une Form ?

Private Declare Function GetSystemMenu _
Lib "user32" ( _
ByVal Hwnd As Long, _
ByVal bRevert As Long) 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 FindWindow _
Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" ( _
ByVal Hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" ( _
ByVal Hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar _
Lib "user32" ( _
ByVal Hwnd As Long) As Long

Private Sub UserForm_Initialize()
'grise la croix
Me.Caption = "Pour fermer la feuille, clique dessus"
DeleteMenu GetSystemMenu(FindWindow(vbNullString, Me.Caption), False),
61536, 0
End Sub

Private Sub UserForm_Initialize()
'supprime la croix
Me.Caption = "Pour fermer la feuille, clique dessus"
SetWindowLong FindWindow _
(vbNullString, Me.Caption), _
-16, 0& And -524289
End Sub

Private Sub UserForm_Initialize()
Dim Hwnd As Long
'supprime la barre de titre
Hwnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong Hwnd, -16, GetWindowLong(Hwnd, -16) And -12582912
DrawMenuBar Hwnd
End Sub

Private Sub UserForm_Click()
Unload Me
End Sub

Hervé.

"Bob le retour" <nospam@nospam.no> a écrit dans le message news:
40BACC0C.5DED7926@nospam.no...

Bonjour,
Existe-t-il une commande VBA qui fasse disparaître la croix qui permet
de
fermer une feuille sans passer par le menu, ainsi que les boutons pleine
page et réduction ?

Bonjour,

ActiveWorkbook.Protect Windows:=True

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,
Existe-t-il une commande VBA qui fasse disparaître la croix qui permet
de
fermer une feuille sans passer par le menu, ainsi que les boutons pleine
page et réduction ?