Ouverture fichier excel plein écran et impact d'autre fichiers

Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As AppBarData) As Long
Public Type RECT: Left As Long: Top As Long: Right As Long: Bottom As Long: End Type
Public Type AppBarData: cbSize As Long: hwnd As Long: uCallbackMessage As Long: uEdge As Long: rc As RECT: lParam As Long: End Type

Sub fullscreen()
  
    With Application: ScreenUpdating = False: .OnKey "{ESCAPE}", "": .DisplayFullScreen = True: .DisplayFormulaBar = False: End With

    With ActiveWindow
        .DisplayHeadings = False: .DisplayGridlines = True: .DisplayHorizontalScrollBar = False: .DisplayVerticalScrollBar = False: .DisplayWorkbookTabs = False
    End With

    SetWindowLongA FindWindowA(vbNullString, Application.Caption), -16, &H15070000
    ShowWindow FindWindowA(vbNullString, Application.Caption), 3
    DrawMenuBar FindWindowA(vbNullString, Application.Caption)
ChangeTaskBar 1
    'ShowWindow hwnd, 3
End Sub
Sub Nofullscreen()
    With Application: ScreenUpdating = False: .OnKey "{ESCAPE}", "{ESCAPE}": .DisplayFullScreen = False: .DisplayFormulaBar = True: End With
    With ActiveWindow
        .DisplayHeadings = True: .DisplayGridlines = True: .DisplayHorizontalScrollBar = True: .DisplayVerticalScrollBar = True: .DisplayWorkbookTabs = True
    End With
    ChangeTaskBar 0
    SetWindowLongA FindWindowA(vbNullString, Application.Caption), -16, &H15CF0000
    DrawMenuBar FindWindowA(vbNullString, Application.Caption)
End Sub

'Applique les propriétés à la barre des taches
'Mode = 0 : voir la barre des tâche
'Mode = 1 : cache la barre des tâches

Public Function ChangeTaskBar(Mode As Long)
    Dim BarDt As AppBarData, ret As Long
    'Entrée des paramètres
    BarDt.cbSize = Len(BarDt): BarDt.hwnd = FindWindowA("shell_traywnd", ""): BarDt.lParam = Mode
    'Applique
    ret = SHAppBarMessage(&HA, BarDt)
    If ret = 0 Then
        Call MsgBox("erreur lors de l'appel de SHAppBarMessage", vbCritical + vbOKOnly, "Erreur")
    End If
End Function