Re : Filtre auto sur feuille protégée
Merci Pierrot93, cela fonctionne bien.
Par contre, mes boutons protéger et déprotéger pas très bien.
Lorsque je les actionne, le mot de passe n'est pas demandé.
Il doit me manquer quelque chose dans les macros de protection et déprotection?
Hello JCGL!
Ai essayé mais peut être n'ai je pas placé le bout de code comme il faut?
'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
For Each f In Worksheets
f.Protect Password:="toto"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next
End Sub
'Déproteger
Sub DProtecFeuilles0()
Application.ScreenUpdating = False
For Each f In Worksheets
f.Unprotect Password:="toto"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next
ActiveWorkbook.Unprotect
End Sub
A tout'