supprimer la barre de titre

Salut angus;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) 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 DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long

Private Sub Workbook_Open()
Dim hndMe As Long, lngMe As Long
hndMe = FindWindow(vbNullString, Application.Caption)
lngMe = GetWindowLong(hndMe, -16) And Not &HC00000
Call SetWindowLong(hndMe, -16, lngMe)
Call DrawMenuBar(hndMe)
End Sub

MP

"angus" <angus@discussions.microsoft.com> a écrit dans le message de
news:12ab201c3c0b8$47623600$a601280a@phx.gbl...
Bonjour
Comment faire pour faire disparaître la barre de titre
Excel.
Merci

Bonjour

tu vas dans

outils / personnaliser
onglet barre d'outils
et tu coches plein écran

procédure inverse pour revenir

@+++
--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP

"angus" <angus@discussions.microsoft.com> a écrit dans le message de news:
12ab201c3c0b8$47623600$a601280a@phx.gbl...
Bonjour
Comment faire pour faire disparaître la barre de titre
Excel.
Merci