Fermer réduire

Bonjour, est til possible de supprimer ou de faire disparaitre le fermer [x] et réduire [-] en haut à droite du classeur excel?

Merci

Bonjour

J’avais un petit truc, Encore une Pioche je ne sais où (ou presque sur le net

' http://frederic.sigonneau.free.fr
' Comment peut on desactiver les 3 icones (réduire, restaurer,fermer) ainsi
' que l' icone en haut à gauche d' une application excel  afin d' empêcher
' l' utilisateur de fermer Excel autrement que par un bouton prévu à cet effet ?

' Dans le module ThisWorkbook de l' application : ' (Laurent Longre)

Option Explicit

Private Declare Function FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

'Ajouter les codes dépendants dans open et close (ci-dessous
'***********************************************************************

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 ‘Comment peut on desactiver les 3 icones (réduire, restaurer,fermer) ainsi
  Dim hwnd As Long
  hwnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
End Sub

Private Sub Workbook_Open()
 ‘ Comment peut on desactiver les 3 icones (réduire, restaurer,fermer) ainsi
  Dim hwnd As Long
  hwnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

Si cela peut aider

Cordialement

Alain

J'ai trouvé cette macro mais j'ai toujours la croix et le réducteur du classeur...

https://www.excel-pratique.com/~files/doc/fermer_reduire.xls

Bonsoir,

Hé bien pour un classeur c'est bon !

Mon code précédent lui le fait pour Excel ! c'est pas la même chose !

Voici le mariage des deux

https://www.excel-pratique.com/~files/doc/fermer_reduire_pour_le_fichier_et_EXcel.xls

Cordialement

Alain