Sybille
XLDnaute Junior
Bonjour,
j'ai écrit cette macro pour protéger tout mes onglets sans bloquer la possibilité de mettre une couleur à une cellule.
Toutefois, mon code ne marche pas...
quelqu'un peut -il me dire ou se trouve mon erreur? J'ai retourné mon code dans tout les sens (et toute la journée!!) , c'est écrit de cette manière que ça bugue le moins...
A l'avance merci,
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Lecture" Then
With sh.Cells
sh.EnableAutoFilter = True
sh.EnableOutlining = True
sh.Protect Contents:=True, Password:="XXX", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
Next sh
End Sub
j'ai écrit cette macro pour protéger tout mes onglets sans bloquer la possibilité de mettre une couleur à une cellule.
Toutefois, mon code ne marche pas...
quelqu'un peut -il me dire ou se trouve mon erreur? J'ai retourné mon code dans tout les sens (et toute la journée!!) , c'est écrit de cette manière que ça bugue le moins...
A l'avance merci,
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Lecture" Then
With sh.Cells
sh.EnableAutoFilter = True
sh.EnableOutlining = True
sh.Protect Contents:=True, Password:="XXX", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
Next sh
End Sub