FanExcel
XLDnaute Occasionnel
Bonjour à tout le forum !
Un petit souci avec un classeur protégé par un petit bout de macro.
Mon mot de passe ne fonctionne pas mais, surtout, les filtres automatiques placés sur les deux onglets oranges non plus.
J'ai essayé en parcourant le forum dans lequel cette problématique a déjà été abordée mais sans succès
Je suppose qu'il manque qq chose dans le code que voici
'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
For Each f In Worksheets
f.Protect Password:="toto"
Next
End Sub
'Déproteger
Sub DProtecFeuilles0()
Application.ScreenUpdating = False
For Each f In Worksheets
f.Unprotect Password:="toto"
Next
ActiveWorkbook.Unprotect
End Sub
Je joins un petit bout de fichier.
A bientôt de vous lire et d'avance merci !
Un petit souci avec un classeur protégé par un petit bout de macro.
Mon mot de passe ne fonctionne pas mais, surtout, les filtres automatiques placés sur les deux onglets oranges non plus.
J'ai essayé en parcourant le forum dans lequel cette problématique a déjà été abordée mais sans succès
Je suppose qu'il manque qq chose dans le code que voici
'Proteger
Sub ProtecFeuilles1()
Application.ScreenUpdating = False
For Each f In Worksheets
f.Protect Password:="toto"
Next
End Sub
'Déproteger
Sub DProtecFeuilles0()
Application.ScreenUpdating = False
For Each f In Worksheets
f.Unprotect Password:="toto"
Next
ActiveWorkbook.Unprotect
End Sub
Je joins un petit bout de fichier.
A bientôt de vous lire et d'avance merci !