Private Sub Worksheet_Activate()
ActiveSheet.Protect AllowDeletingRows:=False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Lignes").Enabled = True
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Lignes").Enabled = False
End Sub