Affichage simplifié

Option Explicit

' plein écran
Private Sub CommandButton1_Click()
  Application.OnKey "{ESCAPE}", "" ' touche Echap inactive
  Application.DisplayFullScreen = True ' affichage plein écran
  ActiveWindow.DisplayWorkbookTabs = False ' onglets masqués
  CacheBOutils ' masque les barres d'outils
  ActiveWindow.Zoom = 200 ' zoom 200 %
End Sub

' rétabli
Private Sub CommandButton2_Click()
  Application.OnKey "{ESCAPE}" ' touche Echap active
  Application.DisplayFullScreen = False ' non plein écran
  ActiveWindow.DisplayWorkbookTabs = True ' onglets affichés
  AfficheBOutils ' affiche les barres d'outils
  ActiveWindow.Zoom = 100 ' zoom 100 %
End Sub

Sub CacheBOutils()
  Dim CmdB As CommandBar
  For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
  Next CmdB
End Sub

Sub AfficheBOutils()
  Dim CmdB As CommandBar
  For Each CmdB In Application.CommandBars
    CmdB.Enabled = True
  Next CmdB
End Sub

Option Explicit
Private Const MF_BYPOSITION As Long = &H400
Private Const mlNUM_SYS_MENU_ITEMS As Long = 9
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 FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName _
  As String) As Long
'Vasant Nanavati, Andrew Baker (mpep), fs
Public Sub DisableSystemMenu()
Dim lHandle As Long, lCount As Long
    
  On Error Resume Next
  lHandle = FindWindowA(vbNullString, Application.Caption)
  If lHandle <> 0 Then

      'désactive la croix de fermeture d'Excel
      'et la commande Fermeture du menu système
     ' DeleteMenu GetSystemMenu(lHandle, False), 6, &H400
      'supprime le trait de séparation du menu système avant Fermeture
    '  DeleteMenu GetSystemMenu(lHandle, False), 5, &H400
      'supprime la commande Agrandissement du menu système
      'et la commande Agrandir de la fenêtre
      DeleteMenu GetSystemMenu(lHandle, False), 4, &H400
      'supprime la commande Réduction du menu système
      'et désactive la commande Réduire de la fenêtre
      DeleteMenu GetSystemMenu(lHandle, False), 3, &H400
      'désactive la commande Déplacement du menu système
    '  DeleteMenu GetSystemMenu(lHandle, False), 2, &H400
      'supprime la commande Déplacement du menu système
      'et désactive la commande Dimension
      DeleteMenu GetSystemMenu(lHandle, False), 1, &H400
      'supprime la commande Restauration du menu système
      'et désactive la commande Restaurer de la fenêtre
      DeleteMenu GetSystemMenu(lHandle, False), 0, &H400
        
  End If
End Sub
'rétablit le menu sytème et les commandes de fenêtre (Réduire, Agrandir, Fermer)
Public Sub EnableSystemMenu()
    Dim lHandle As Long
    On Error Resume Next
    lHandle = FindWindowA(vbNullString, Application.Caption)
    GetSystemMenu lHandle, True
End Sub

'bloqué
DisableSystemMenu
'débloqué
EnableSystemMenu