Protéger un classeur avec filtre possible

[moreauste]

Bonjour,

J'ai mis les 2 macros suivantes dans Excel pour protéger mes classeurs mais impossible pour les utilisateurs de filtrer le contenu des tableaux ; Comment puis-je résoudre ce problème ?

Sub ProtegeTout()
For Each Feuil In Application.Sheets
Feuil.Protect ("motdepasse")
Next Feuil
End Sub

Sub DeprotegeTout()
Application.ScreenUpdating = False
For Each Feuil In Application.Sheets
Feuil.Unprotect ("motdepasse")
Next Feuil
Application.ScreenUpdating = True
End Sub

Merci beaucoup.

 

[Victor21]

Re : Protéger un classeur avec filtre possible

Bonjour.

Sélectionnez le mot Protect dans votre code, et appuyez sur F1 pour en connaitre les arguments.

Edit : Bonjour, Eric

 

[RENAUDER]

Re : Protéger un classeur avec filtre possible

Bonjour,

Si ta feuille se nomme feuil1 et le mot de passe est callas tu peux utiliser ceci sinon il faut changer les noms
A mettre dans le module ThisWorkbook

Private Sub Workbook_Open()
    Feuil1.EnableAutoFilter = True
    Feuil1.Protect Password:="callas", Contents:=True, UserInterfaceOnly:=True
End Sub

 

[moreauste]

Re : Protéger un classeur avec filtre possible

Bonjour,

Si ta feuille se nomme feuil1 et le mot de passe est callas tu peux utiliser ceci sinon il faut changer les noms
A mettre dans le module ThisWorkbook

Private Sub Workbook_Open()
    Feuil1.EnableAutoFilter = True
    Feuil1.Protect Password:="callas", Contents:=True, UserInterfaceOnly:=True
End Sub

Merci mais le soucis est que les filtres ne sont plus accessibles à la réouverture du document...

 

[JCGL]

Re : Protéger un classeur avec filtre possible

Bonjour à tous,
Salut Patrick,
Salut Eric,

Moreauste : Merci de tester le fichier joint : essaye de modifier les valeurs, essaye de lancer les filtres.

A++
A++ à tous

 

[RENAUDER]

Re : Protéger un classeur avec filtre possible

Bonjour moreauste,


Je pense que tu n'as pas bien compris comment intégrer le code VBA et JCGL te l'as mis en forme dans un fichier (avec le même code que j'ai publié) et cela fonctionne parfaitement.

Salut JCGL

 

[moreauste]

Re : Protéger un classeur avec filtre possible

Bonjour à tous,
Salut Patrick,
Salut Eric,

Moreauste : Merci de tester le fichier joint : essaye de modifier les valeurs, essaye de lancer les filtres.

A++
A++ à tous

Oui effectivement... Et comment le faire pour l'ensemble des feuilles ? Actuellement uniquement sur la feuil1 !

J'ai bien essayé quelque chose de ce type mais ne fonctionne pas :

For Each Feuil In Application.Sheets
Feuil1.EnableAutoFilter = True
Feuil1.Protect Password:="callas", Contents:=True, UserInterfaceOnly:=True
Next Feuil

OU

For Each Feuil In Application.Sheets
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect Password:="callas", contents:=True, userInterfaceOnly:=True
Next Feuil

 

[JCGL]

Re : Protéger un classeur avec filtre possible

Bonjour à tous,

Toujours dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect Password:="callas", Contents:=True, UserInterfaceOnly:=True
End Sub

A+ à tous

 

[moreauste]

Re : Protéger un classeur avec filtre possible

Merci à vous tous.