bonjour,


Je sollicite votre aide ce jour, j'ai mis des macros dans mon classeur Excel afin de masquer le ruban à l'ouverture du classeur. Mais rien ne se passe quand j'ouvre mon classeur. J'utilise Excel 2016 actuellement.Je précise que j'ai déjà utiliser ce code sous Excel 2013 parfaitement. Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
Private Sub Workbook_Activate()
    On Error Resume Next
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    On Error Resume Next
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
 
     ThisWorkbook.Save
End Sub
Private Sub Workbook_Deactivate()
    On Error Resume Next
    Application.DisplayFormulaBar = True
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
    On Error Resume Next
    Application.DisplayFormulaBar = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
 
End Sub

Pourriez-vous m'indiquer d'où provident l'erreur ?

Merci