Voici une macro qui me permet d'annuler automatiquement les filtres sur une feuille.
Celle-ci fonctionne parfaitement.
SAUF, que quand je partage mon fichier pour une modification multi utilisateur, celle-ci
me provoque une erreur.
Voici le code:
Code:
Public Sub annulfiltres()
With Worksheets("relevé")
ActiveSheet.Unprotect "toto"
If .FilterMode = True Then .ShowAllData
ActiveSheet.Protect "toto", True, True, True, UserInterfaceOnly:=True, AllowFiltering:=True
End With
End Sub
Et voici l'erreur affichée:
Si quelqu'un sait ce que je peux faire pour que cela fonctionne en mode partagé.