Macros VBA

[Nemee]

Bonsoir à tous,

J'ai plusieurs petites situations qui me posent problème sous Excel 2003 :

Problème 1 :
J'aimerais créer une macro me permettant de faire une liste déroulante entre 3 critères, puis qu'en fonction du critère désigné cela modifie les champs de pages de tableaux croisés dynamiques dans un autre fichier.
Par exemple, en mettant mon critère Région sur "Nord", il faudrait que tous les champs de page des TCD de l'autre fichier basculent en Nord.
J'ai essayé pas mal de manipulations et je patauge lamentablement.

Problème 2 :
Une autre question concerne la protection des feuilles. J'arrive à créer une macro pour protéger une seule feuille d'un classeur, avec une boîte de dialogue qui apparaît.
Mais je n'arrive pas à protéger en une seule fois plusieurs feuilles, sans faire en sorte que le mot de passe soit demandé pour chaque feuille. Existe-t-il une commande qui résolve ce problème ?

Merci d'avance à ceux qui pourront me filer un coup de main !

 

[SubEndSub]

Re : Macros VBA

Bonjour chez vous


Pour le problème 2

Sub macro()
Dim feuille As Worksheet, motpasse
motpasse = CStr(InputBox("le mot de passe?"))
For Each feuille In Worksheets
feuille.Protect motpasse
Next
End Sub