Private Sub Worksheet_Activate()
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
Private Sub Worksheet_Deactivate()
ActiveWorkbook.Protect Structure:=False, Windows:=False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If IsError(Feuil1.Name) Then 'CodeName
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.DisplayAlerts = False
On Error Resume Next
If IsError(Feuil1.Name) Then 'CodeName
MsgBox "Il ne fallait pas tenter de supprimer cette feuille !" _
& vbLf & "Les modifications du classeur seront perdues...", 48
Workbooks.Open Me.FullName
End If
End Sub
CommandBars("Ply").Controls("&Supprimer").Enabled = 0
Ah tu l'auras voulu, jeune voyouFichier joint, je laisse Modeste tester avec ses sélections multiples