Re,
Fichier vraiment pourri de point de vue codage
Dans Private Sub Workbook_Open()
Il y'a
'"Suppression" de la barre d'outil (je mets des guillemets !) :
Application.DisplayFullScreen = True
Résurrection:
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
' Etc ...
Et aucune Private Sub Workbook_BeforeClose(Cancel As Boolean)
Du coup on se retrouve avec Excel en plein écran et sans clique droit même après fermeture d'Excel et réouverture
Quand on met du code dans le Open, il faut mettre l'inverse dans le BeforeClose
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim CmdB As CommandBar
Application.DisplayFullScreen = False
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
Application.Visible = True
End Sub
Ce qui te vire le menu contextuel c'est la boucle sur les CommandBars
A+