Protection feuille Résolu/Fermé

Question

Bonsoir
J'ai une feuille excel (2003) ou il y a un tableau
j'ai mis un filtre automatique pour faire des recherches et j'ai en même temps protéger certaines cellules 
Mais une fois protéger, je peux bien sûr modifier mes cellules non protégées, mais par contre je ne peux plus utiliser mon filtre
Est ce qu'il y aurait une solution pour protéger  mes cellules et continuer a pouvoir utiliser mes filtres
Bonne soirée et merci a tous
Cordialement

Vaucluse · Answer

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

Mike-31 · Answer

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 = TrueFeuil1.Protect Password:="toto", UserInterfaceOnly:=TrueEnd 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

Mike-31 · Answer

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é

Mike-31 · Answer

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

Mike-31 · Answer

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.

Mike-31 · Answer

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 ExplicitConst onglet As String = "toto"Const pass As String = "titi"Private Sub Workbook_Open()Sheets(onglet).EnableAutoFilter = TrueSheets(onglet).Protect Password:=pass, UserInterfaceOnly:=TrueEnd Sub

Mike-31 · Answer

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 ExplicitConst 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 = TrueSheets(onglet).Protect Password:=pass, UserInterfaceOnly:=TrueEnd 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.

Mike-31 · Answer

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.

Mike-31 · Answer

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

Mike-31 · Answer

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 ExplicitConst onglet As String = "Récap Paiement Challenge Oct No"Const pass As String = "patrice"Private Sub Workbook_Open()Sheets(onglet).EnableAutoFilter = TrueSheets(onglet).Protect Password:=pass, UserInterfaceOnly:=TrueEnd 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.

Mike-31 · Answer

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.

Protection feuille

11 réponses

Discussions similaires

Newsletters