XL 2016 Masquer Barre de taches

[KTM]

Bonsoir Chers compagnons du forum
Je voudrais systématiquement masquer ma barre de taches a l'ouverture de mon fichier et la rétablir à la fermeture.
MERCI

 

[patricktoulon]

Bonjour KTM

Public Declare Function SHAppBarMessage Lib "shell32" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

Public Const ABM_GETSTATE = &H4
Public Const ABM_SETSTATE = &HA
Public Const ABS_AUTOHIDE = &H1
Public Const ABS_ALWAYSONTOP = &H2

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 TaskbarNO()
    Dim ABD As APPBARDATA
    ABD.cbSize = Len(ABD)
    SHAppBarMessage ABM_GETSTATE, ABD
    ABD.lParam = ABS_AUTOHIDE
    SHAppBarMessage ABM_SETSTATE, ABD
End Sub

Sub TaskbarYES()
    Dim ABD As APPBARDATA
    ABD.cbSize = Len(ABD)
    SHAppBarMessage ABM_GETSTATE, ABD
    ABD.lParam = ABS_ALWAYSONTOP
    SHAppBarMessage ABM_SETSTATE, ABD
End Sub