Protection feuille

Re,

tu n'as rien compris, dans la Tiswokbook tu effaces les anciens codes
et tu colles en remplacement ce code, remplace titi par ton mot de passe qui protège ta feuille

Option Explicit

Const onglet As String = "Récap paiement Challenge octNo"
Const pass As String = "titi"

au dessous colle ce code sans le modifier

Private Sub Workbook_Open()
Sheets(onglet).EnableAutoFilter = True
Sheets(onglet).Protect Password:=pass, UserInterfaceOnly:=True
End Sub

enregistre et ferme ton fichier avant de l'ouvrir
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

on est tous passé par des moments difficiles, le principal est au moins d'écrire ce que l'on essaye d'expliquer, avec le VBA il faut impérativement écrire à l'identique, le problème venait de ta saisie pour le nom de l'onglet
https://www.cjoint.com/c/EJEooboyduj

Re,

le lien est bon je viens de l'ouvrir, lorsque tu cliques sur le lien, un onglet dans le navigateur n'ouvre et te propose un nouveau le lien du fichier, lorsque tu cliques dessus une petite fenêtre s'ouvre et te propose soit de l'ouvrir et une fois ouvert tu l'enregistre sous, ou tu coches Enregistrer et tu le retrouves dans le dossier des Téléchargements.

en tous cas le code complet pour filtrer sous protection que tu dois copier dans la Thiswokbook est

Option Explicit

Const onglet As String = "Récap Paiement Challenge Oct No"
Const pass As String = "patrice"

Private Sub Workbook_Open()
Sheets(onglet).EnableAutoFilter = True
Sheets(onglet).Protect Password:=pass, UserInterfaceOnly:=True
End Sub 

ce code s'applique à l'onglet Récap Paiement Challenge Oct No et le mot de passe pour la protection de l'onglet est patrice
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

Je ne cours pas après les appréciations, j'essaye simplement de partager ce que je sais faire et surtout maintenir voire approfondir mes connaissances.

maintenant libre à toi de cliquer sur le + en haut à gauche du post qui te semble être positif ou sur le - si la proposition est hors sujet
les réponses notées se placent en haut de la discussion ce qui rend les recherches plus facile par les internautes qui recherchent des solutions similaires
Si tes attentes sont satisfaites, je passe le statut de la discussion en résolu.
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Bonjour
lors de la protection de la feuille, vous avez un menu qui s'affiche avec une liste d'option.
Dans la liste, cochez "utiliser les filtres automatiques "
crdlmnt

Bonsoir,

A tester
exemple pour la feuille1, Clic droit sur l'onglet de ta feuille, Visualiser le code, double clic sur la Thisworkbook
et colle ce code, le mot de passe pour la protection de la feuille est toto à changer

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

revient sur ta feuille pas encore protégée place ton filtre, enregistre et ferme le fichier, la protection se mettra automatiquement en place

ouvre ton fichier et teste ton filtre

Re,

une autre solution non mais le code fonctionne parfaitement pour l'avoir testé.

as tu collé ce code dans la Thiswokbook

le code s'adresse t il à la feuille 1

contrôle le niveau de sécurité qui doit être trop élevé

Re,

tu peux également utiliser le nom de ta feuille le code sera plus explicite pour toi, exemple à la place de dire Feuil3 tu utilises son nom d'onglet, exemple pour ta feuille nommée toto

Private Sub Workbook_Open()
Sheets("toto").EnableAutoFilter = True
Sheets("toto").Protect Password:="titi", UserInterfaceOnly:=True
End Sub

Re,

avant de donner un code je le teste, si tu utilises mon dernier code, le nom de ta feuille à traiter dans mon code est toto que tu dois changer par le nom de ta feuille concernée

remplace le code précédent dans la Thiswokbook par mon dernier code
remplace le nom de l'onglet toto dans le code par celui de ta feuille
déprotége ta feuille, enregistre et ferme le fichier, lorsque tu relancera ton fichier il prendra en compte le code

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

tu n'as changé qu'une fois le nom, il faut changer le nom sur les deux lignes

Private Sub Workbook_Open()
Sheets("toto").EnableAutoFilter = True
Sheets("toto").Protect Password:="titi", UserInterfaceOnly:=True
End Sub

si non j'ajoute deux variables comme cela tu ne touches pas au code sauf dans les constantes ou tu remplaces entre les guillemets le nom de ta feuille toto par le nom de ta feuille concernée et titi pour le mot de passe qui protège ta feuille.
avant de fermer et enregistrer la modif, déprotège la feuille pour que le nouveau mot de passe soit pris en compte et ne mette pas le code en erreur

Option Explicit

Const onglet As String = "toto"
Const pass As String = "titi"

Private Sub Workbook_Open()
Sheets(onglet).EnableAutoFilter = True
Sheets(onglet).Protect Password:=pass, UserInterfaceOnly:=True
End Sub

Re,

déjà une capture d'écran n'apporte rien et surtout ne me permet pas de modifier ton code.
ensuite je me demande si tu lis mes réponses, ton code compte deux lignes, la première fait référence à un onglet nommé
Sheets("Récap paiement Challenge octNo").EnableAutoFilter = True

en la deuxième ligne à un onglet différent nommé toto
Sheets("toto").Protect Password:=pass, UserInterfaceOnly:=True

lorsque tu auras saisi le bon nom d'onglet impérativement identique au nom de l'onglet concerné dans les deux lignes tu auras fait un grand pas
Sheets("Récap paiement Challenge octNo").EnableAutoFilter = True
Sheets("Récap paiement Challenge octNo").Protect Password:="titi", UserInterfaceOnly:=True

ce n'est tout de même pas très compliqué ou abandonne le VBA !

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.