Protéger un classeur avec filtre possible

moreauste · 22 Décembre 2011

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 · 22 Décembre 2011

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 · 22 Décembre 2011

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

Code:

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

moreauste · 22 Décembre 2011

Re : Protéger un classeur avec filtre possible

RENAUDER à dit:
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

Code:

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 · 22 Décembre 2011

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 · 22 Décembre 2011

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 · 22 Décembre 2011

Re : Protéger un classeur avec filtre possible

JCGL à dit:
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 · 22 Décembre 2011

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 · 22 Décembre 2011

Re : Protéger un classeur avec filtre possible

Merci à vous tous.

Protéger un classeur avec filtre possible

moreauste

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

RENAUDER

Nous a quitté

moreauste

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Pièces jointes

RENAUDER

Nous a quitté

moreauste

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

moreauste

XLDnaute Nouveau

Discussions similaires