Bonsoir max592, le forum,
Un exemple avec impossibilité de supprimer les feuilles 1,2et 3.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each Sh In ActiveWindow.SelectedSheets
Select Case Sh.Name
Case "1", "2", "3"
ThisWorkbook.Protect "toto", True, True
Exit Sub
Case Else
ThisWorkbook.Unprotect "toto"
End Select
Next
End Sub
La macro n'est pas de moi, merci à l'auteur,
Cordialement,