Bonjour à tous,
Je me permets de revenir vers vous concernant un sujet de protection. Voilà : j'ai deux macros ci-dessous pour faire fonctionner la protection et la dé protection des feuilles du classeur selon que les cellules sont verrouillées et ou masquées. Néanmoins, certaines feuilles maintenant sont équipées de filtres sur certaines colonnes et j'aurai besoin de rendre ces filtres opérationnels tout en conservant les protections habituelles. Est-ce que c'est possible techniquement ?
Je vous mets les deux macros ci-dessous pour savoir si quelqu'un pourrait me les adapter en fonction de ce que je viens d'évoquer s'il vous plait.
Sub protection()
For i = 1 To Sheets.Count
Sheets(i).Protect "avbfdid59", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True
Next i
End Sub
Sub deprotection()
mdp = InputBox("Veuillez entrer le mot de passe", "Enlever la protection des feuilles", "")
If (mdp = "avbfdid59") Then
For i = 1 To Sheets.Count
Sheets(i).Unprotect mdp
Next i
End If
End Sub
D'avance, je vous remercie, bien cordialement, Chti59xcel