Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Pour le rétablir
Application.CommandBars("Ply").Enabled = True
End Sub
Private Sub Workbook_Open()
'Pour désactiver le menu clic droit sur onglet
Application.CommandBars("Ply").Enabled = False
End Sub
ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="Toto"