Private Sub Workbook_Activate()
MenuOutilsVisible False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MenuOutilsVisible True
End Sub
Private Sub Workbook_Deactivate()
MenuOutilsVisible True
End Sub
Private Sub Workbook_Open()
MenuOutilsVisible False
End Sub
Private Function MenuOutilsVisible(bVisible As Boolean)
Dim MenuOutils As CommandBarControl
Set MenuOutils = Application.CommandBars.FindControl(ID:=30007)
If Not MenuOutils Is Nothing Then MenuOutils.Visible = bVisible
End Function