Discussion :

[Daniel.C]

Bonjour,

Je croyais que c'était l'arme absolue pour utiliser les macros sur les feuilles protégées. Apparemment, ce n'est pas absolu. Je me suis cassé les dents sur "ShowAllData" et sur "AutoFilterMode". J'ai été obligé de déprotéger - reprotéger la feuille.

Est-ce que j'ai raté quelque chose ?

Merci d'avance.

Daniel

[RyuAutodidacte]

Bonsoir,

par userfaceonly, tu veux dire UserInterfaceOnly
si c'est le cas, c'est l'une des option de Protect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserInterfaceOnly:=True 'Pour les Macro

Permet d'utiliser les macro si c'est omis, la feuille est protéger contre les utilisateurs et les macros
Donc si on veut utiliser les macros par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.Protect UserInterfaceOnly:=True 'ouvert aux macros
   MaMacro …
ActiveSheet.Protect UserInterfaceOnly:=False 'accès fermé aux macros

Concernant les filtres, l'option c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AllowFiltering:=True

pour les tableaux croisé dynamique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AllowUsingPivotTables:=True

si il y a un mot de passe, tu devras t'en acquitter avec l'option :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Password:="MonMotDePasse"

Donc par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.Protect Password:="MonMotDePasse" , AllowFiltering:=True , UserInterfaceOnly:=True 'accès ouvert aux filtres et aux macros 
   MaMacro …
ActiveSheet.Protect Password:="MonMotDePasse" , AllowFiltering:= False , UserInterfaceOnly:= False 'accès fermé aux filtres et aux macros

De cette manière ça reste protégé selon les options choisies - liens : https://msdn.microsoft.com/fr-fr/lib.../ff840611.aspx

Voilà

[Daniel.C]

Bonjour,

Merci de tes réponses. Désolé pour l'orthographe défectueuse.

J'ai dû m'emmêler les pédales quelque part... J'ai refait mes essais ce matin et je n'ai plus de problème.