Protection d'un tableau ayant des filtres

[pajude]

Bonjour,

Je n'y connaît rien en macro.
J'ai un tableau excel et j'ai crée automatiquement la macro suivante que j'active avec un bouton qui me permet de filtrer des données :

Sub IA_en_cours()
ActiveSheet.Range("$A$5:$V$1191").AutoFilter Field:=19, Criteria1:="="
End Sub

Mon problème, je voudrais protéger mon tableau, quand je le fais, la macro ne fonctionne plus.
J'ai bien cocher dans la protection toutes les autorisations.

Merci de votre aide
Cdt
Pajude

 

[Papou-net]

Re : Protection d'un tableau ayant des filtres

Bonsoir pajude, et bienvenue sur le forum,

Ce doit être faisable par options lors de la protection via les menus, mais pour ma part, je rajouterais plutôt les 2 lignes suivantes :

Sub IA_en_cours()
[COLOR="Red"]ActiveSheet.UnProtect [I]"MotdePasse"[/I][/COLOR]
ActiveSheet.Range("$A$5:$V$1191").AutoFilter Field:=19, Criteria1:="="
[COLOR="Red"]ActiveSheet.Protect [I]"MotdePasse"[/I][/COLOR]
End Sub

Ou encore :

Sub IA_en_cours()
With ActiveSheet
  .UnProtect [I]"MotdePasse"[/I]
  .Range("$A$5:$V$1191").AutoFilter Field:=19, Criteria1:="="
  .Protect [I]"MotdePasse"[/I]
End With
End Sub

Remplaces les mots en italique par ton mot de passe, si existant, entre guillemets. Sinon, inutile de les écrire.

Durant le déroulement de la macro, l'utilisateur ne peut pas prendre la main, donc aucun risque de fausse manip.

Espérant avoir répondu.

Cordialement.