Feuille protégée mais auto-filtre accessible

[Pasqi]

Bonjour à tous,

Voici mon problème, je protège une feuille par macro automatique; certaines personnes ont accès mais ne peuvent modifier le fichier.

Je désirerais néanmoins laisser activé le filtre automatique, mais je ne connais pas le code pour y parvenir.

J'ai mis un fichier en exemple. pour déprotéger le fichier ; CTRL+d et pour le protéger :CTRL+p.

Mot de passe si nécéssaire :1234

Merci d'avance pour votre aide.

Bonne journée

 

[Staple1600]

Re : Feuille protégée mais auto-filtre accessible

Bonjour Pasqi

F1 est ton ami pour la vie

EnableAutoFilter, propriété - Exemple
Cet exemple montre comment activer les flèches du Filtre Automatique dans une feuille de calcul protégée.
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

 

[Pasqi]

Re : Feuille protégée mais auto-filtre accessible

Bonjour JM et merci de ta réponse rapide,

Mais, comment incorporer tes lignes de code au code existant...
ou alors, dois-je les mettre dans un module ???

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     ' Protéger les feuilles du classeur
     WsLock
End Sub

Sub WsLock(Optional Y)
Dim PWd$
PWd = "1234"
'Protège ou déprotège toutes les feuilles
Application.ScreenUpdating = False
If IsMissing(Y) Then
For i = 1 To Worksheets.Count
Worksheets(i).Protect PWd
[A1].Select
Next
Else
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect PWd
[A1].Select
Next
End If
End Sub
Sub deprotege()
WsLock 0
End Sub
Sub protege()
WsLock
End Sub

Très loin je suis de la maitrise du VBA...

Merci encore pour l'aide précieuse.

Bàt

 

[Pasqi]

Re : Feuille protégée mais auto-filtre accessible

Bonjour à tous.


Je remonte cette demande, car pas encore reçu la solution.

Grand merci d'avance.

Pasqi

 

[roro69]

Re : Feuille protégée mais auto-filtre accessible

Bonjour à essayer
A++

 

[Pasqi]

Re : Feuille protégée mais auto-filtre accessible

Bonjour Roro69,

C'est parfait !! ça fonctionne comme je le voulais.

Mille merci à toi et aux autres.

Bonne journée.

 

[chakib24]

Re : Feuille protégée mais auto-filtre accessible

Bonjour a tous,

je suis nouveau sur ce site, j'ai un petit souci alors peut être que quelqu'un saura me répondre!

en fait j'ai une feuille excel avec deux colonnes qui comportent une liste déroulante (données/filtre/filtre auto), je voudrai protéger cette feuille tout en laissant accès aux filtres et je n'y arrive pas.

qd je fais (outils/protection/protéger la feuille...mdp et tt le reste), plus accès au filtre.

si qq a une idée???
merci d'avance
chak