Bonjour Alexis59,
Tu fais une boucle sur chaque feuille de calcul de ton fichier
une petite procédure comme ceci :
'--------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For each sh in ThisWorkbook.Worksheets
Sh.Protect "MotDePasse"
Next
End Sub
'--------------------------
Il n'y pas d'autres méthodes !
"Alexis59" a écrit dans le message de groupe de
discussion :
Bonjour à tous,
Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
un mot de passe plusieur feuilles à la fois.
Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
méthode simple ?
A l'avance merci beacoup !
Alexis
Bonjour Alexis59,
Tu fais une boucle sur chaque feuille de calcul de ton fichier
une petite procédure comme ceci :
'--------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For each sh in ThisWorkbook.Worksheets
Sh.Protect "MotDePasse"
Next
End Sub
'--------------------------
Il n'y pas d'autres méthodes !
"Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A27A65D0-A200-4064-919B-9B24729FACE5@microsoft.com...
Bonjour à tous,
Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
un mot de passe plusieur feuilles à la fois.
Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
méthode simple ?
A l'avance merci beacoup !
Alexis
Bonjour Alexis59,
Tu fais une boucle sur chaque feuille de calcul de ton fichier
une petite procédure comme ceci :
'--------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For each sh in ThisWorkbook.Worksheets
Sh.Protect "MotDePasse"
Next
End Sub
'--------------------------
Il n'y pas d'autres méthodes !
"Alexis59" a écrit dans le message de groupe de
discussion :
Bonjour à tous,
Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
un mot de passe plusieur feuilles à la fois.
Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
méthode simple ?
A l'avance merci beacoup !
Alexis
Merci beaucoup !
Ca marche trés bien !
Est-t-il également possible de supprimer la protection de manière
automatique (en ne saisissant le code qu'une fois voir même pas du tout via
une macro) ?
A l'avance merci encore !
Alexis
"MichDenis" a écrit :
> Bonjour Alexis59,
>
> Tu fais une boucle sur chaque feuille de calcul de ton fichier
> une petite procédure comme ceci :
> '--------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For each sh in ThisWorkbook.Worksheets
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '--------------------------
>
> Il n'y pas d'autres méthodes !
>
>
>
> "Alexis59" a écrit dans le message de groupe de
> discussion :
> Bonjour à tous,
>
> Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> un mot de passe plusieur feuilles à la fois.
> Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
>
> J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> méthode simple ?
>
> A l'avance merci beacoup !
>
> Alexis
>
>
Merci beaucoup !
Ca marche trés bien !
Est-t-il également possible de supprimer la protection de manière
automatique (en ne saisissant le code qu'une fois voir même pas du tout via
une macro) ?
A l'avance merci encore !
Alexis
"MichDenis" a écrit :
> Bonjour Alexis59,
>
> Tu fais une boucle sur chaque feuille de calcul de ton fichier
> une petite procédure comme ceci :
> '--------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For each sh in ThisWorkbook.Worksheets
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '--------------------------
>
> Il n'y pas d'autres méthodes !
>
>
>
> "Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : A27A65D0-A200-4064-919B-9B24729FACE5@microsoft.com...
> Bonjour à tous,
>
> Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> un mot de passe plusieur feuilles à la fois.
> Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
>
> J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> méthode simple ?
>
> A l'avance merci beacoup !
>
> Alexis
>
>
Merci beaucoup !
Ca marche trés bien !
Est-t-il également possible de supprimer la protection de manière
automatique (en ne saisissant le code qu'une fois voir même pas du tout via
une macro) ?
A l'avance merci encore !
Alexis
"MichDenis" a écrit :
> Bonjour Alexis59,
>
> Tu fais une boucle sur chaque feuille de calcul de ton fichier
> une petite procédure comme ceci :
> '--------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For each sh in ThisWorkbook.Worksheets
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '--------------------------
>
> Il n'y pas d'autres méthodes !
>
>
>
> "Alexis59" a écrit dans le message de groupe de
> discussion :
> Bonjour à tous,
>
> Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> un mot de passe plusieur feuilles à la fois.
> Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
>
> J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> méthode simple ?
>
> A l'avance merci beacoup !
>
> Alexis
>
>
Merci beaucoup !
Ca marche trés bien !
Est-t-il également possible de supprimer la protection de manière
automatique (en ne saisissant le code qu'une fois voir même pas du tout via
une macro) ?
A l'avance merci encore !
Alexis
"MichDenis" a écrit :
> Bonjour Alexis59,
>
> Tu fais une boucle sur chaque feuille de calcul de ton fichier
> une petite procédure comme ceci :
> '--------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For each sh in ThisWorkbook.Worksheets
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '--------------------------
>
> Il n'y pas d'autres méthodes !
>
>
>
> "Alexis59" a écrit dans le message de groupe de
> discussion :
> Bonjour à tous,
>
> Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> un mot de passe plusieur feuilles à la fois.
> Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
>
> J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> méthode simple ?
>
> A l'avance merci beacoup !
>
> Alexis
>
>
Merci beaucoup !
Ca marche trés bien !
Est-t-il également possible de supprimer la protection de manière
automatique (en ne saisissant le code qu'une fois voir même pas du tout via
une macro) ?
A l'avance merci encore !
Alexis
"MichDenis" a écrit :
> Bonjour Alexis59,
>
> Tu fais une boucle sur chaque feuille de calcul de ton fichier
> une petite procédure comme ceci :
> '--------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For each sh in ThisWorkbook.Worksheets
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '--------------------------
>
> Il n'y pas d'autres méthodes !
>
>
>
> "Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : A27A65D0-A200-4064-919B-9B24729FACE5@microsoft.com...
> Bonjour à tous,
>
> Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> un mot de passe plusieur feuilles à la fois.
> Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
>
> J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> méthode simple ?
>
> A l'avance merci beacoup !
>
> Alexis
>
>
Merci beaucoup !
Ca marche trés bien !
Est-t-il également possible de supprimer la protection de manière
automatique (en ne saisissant le code qu'une fois voir même pas du tout via
une macro) ?
A l'avance merci encore !
Alexis
"MichDenis" a écrit :
> Bonjour Alexis59,
>
> Tu fais une boucle sur chaque feuille de calcul de ton fichier
> une petite procédure comme ceci :
> '--------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For each sh in ThisWorkbook.Worksheets
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '--------------------------
>
> Il n'y pas d'autres méthodes !
>
>
>
> "Alexis59" a écrit dans le message de groupe de
> discussion :
> Bonjour à tous,
>
> Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> un mot de passe plusieur feuilles à la fois.
> Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
>
> J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> méthode simple ?
>
> A l'avance merci beacoup !
>
> Alexis
>
>
Pour autoriser des filtres automatiques sur une feuille protégée :
A ) AVANT d'effectuer la protection de la feuille
il faut s'assurer que les "boutons" du filtre automatique sont déjà
sur la plage que l'on désire filtrée
Et il s'agit par la suite de protéger les feuilles :
Dans la macro, j'ai ajouté cette ligne de code :
Sh.EnableAutoFilter = True
avant d'appliquer la protection de la feuille.
'------------------------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.EnableAutoFilter = True
Sh.Protect "MotDePasse"
Next
End Sub
'------------------------------------------
"Alexis59" a écrit dans le message de groupe de
discussion :
Petit ajout :
est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
automatiques malgrés la protection ?
A l'avance, merci encore !
Alexis
"Alexis59" a écrit :
> Merci beaucoup !
>
> Ca marche trés bien !
>
> Est-t-il également possible de supprimer la protection de manière
> automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> une macro) ?
>
> A l'avance merci encore !
>
> Alexis
>
>
>
> "MichDenis" a écrit :
>
> > Bonjour Alexis59,
> >
> > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > une petite procédure comme ceci :
> > '--------------------------
> > Sub Protection_Des_Feuilles()
> > Dim Sh As Worksheet
> >
> > For each sh in ThisWorkbook.Worksheets
> > Sh.Protect "MotDePasse"
> > Next
> > End Sub
> > '--------------------------
> >
> > Il n'y pas d'autres méthodes !
> >
> >
> >
> > "Alexis59" a écrit dans le message de groupe de
> > discussion :
> > Bonjour à tous,
> >
> > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > un mot de passe plusieur feuilles à la fois.
> > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> >
> > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > méthode simple ?
> >
> > A l'avance merci beacoup !
> >
> > Alexis
> >
> >
Pour autoriser des filtres automatiques sur une feuille protégée :
A ) AVANT d'effectuer la protection de la feuille
il faut s'assurer que les "boutons" du filtre automatique sont déjà
sur la plage que l'on désire filtrée
Et il s'agit par la suite de protéger les feuilles :
Dans la macro, j'ai ajouté cette ligne de code :
Sh.EnableAutoFilter = True
avant d'appliquer la protection de la feuille.
'------------------------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.EnableAutoFilter = True
Sh.Protect "MotDePasse"
Next
End Sub
'------------------------------------------
"Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A4C935AD-E8FC-43FD-99A1-B53EED7E024E@microsoft.com...
Petit ajout :
est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
automatiques malgrés la protection ?
A l'avance, merci encore !
Alexis
"Alexis59" a écrit :
> Merci beaucoup !
>
> Ca marche trés bien !
>
> Est-t-il également possible de supprimer la protection de manière
> automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> une macro) ?
>
> A l'avance merci encore !
>
> Alexis
>
>
>
> "MichDenis" a écrit :
>
> > Bonjour Alexis59,
> >
> > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > une petite procédure comme ceci :
> > '--------------------------
> > Sub Protection_Des_Feuilles()
> > Dim Sh As Worksheet
> >
> > For each sh in ThisWorkbook.Worksheets
> > Sh.Protect "MotDePasse"
> > Next
> > End Sub
> > '--------------------------
> >
> > Il n'y pas d'autres méthodes !
> >
> >
> >
> > "Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
> > discussion : A27A65D0-A200-4064-919B-9B24729FACE5@microsoft.com...
> > Bonjour à tous,
> >
> > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > un mot de passe plusieur feuilles à la fois.
> > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> >
> > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > méthode simple ?
> >
> > A l'avance merci beacoup !
> >
> > Alexis
> >
> >
Pour autoriser des filtres automatiques sur une feuille protégée :
A ) AVANT d'effectuer la protection de la feuille
il faut s'assurer que les "boutons" du filtre automatique sont déjà
sur la plage que l'on désire filtrée
Et il s'agit par la suite de protéger les feuilles :
Dans la macro, j'ai ajouté cette ligne de code :
Sh.EnableAutoFilter = True
avant d'appliquer la protection de la feuille.
'------------------------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.EnableAutoFilter = True
Sh.Protect "MotDePasse"
Next
End Sub
'------------------------------------------
"Alexis59" a écrit dans le message de groupe de
discussion :
Petit ajout :
est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
automatiques malgrés la protection ?
A l'avance, merci encore !
Alexis
"Alexis59" a écrit :
> Merci beaucoup !
>
> Ca marche trés bien !
>
> Est-t-il également possible de supprimer la protection de manière
> automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> une macro) ?
>
> A l'avance merci encore !
>
> Alexis
>
>
>
> "MichDenis" a écrit :
>
> > Bonjour Alexis59,
> >
> > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > une petite procédure comme ceci :
> > '--------------------------
> > Sub Protection_Des_Feuilles()
> > Dim Sh As Worksheet
> >
> > For each sh in ThisWorkbook.Worksheets
> > Sh.Protect "MotDePasse"
> > Next
> > End Sub
> > '--------------------------
> >
> > Il n'y pas d'autres méthodes !
> >
> >
> >
> > "Alexis59" a écrit dans le message de groupe de
> > discussion :
> > Bonjour à tous,
> >
> > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > un mot de passe plusieur feuilles à la fois.
> > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> >
> > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > méthode simple ?
> >
> > A l'avance merci beacoup !
> >
> > Alexis
> >
> >
Pour autoriser des filtres automatiques sur une feuille protégée :
A ) AVANT d'effectuer la protection de la feuille
il faut s'assurer que les "boutons" du filtre automatique sont déjà
sur la plage que l'on désire filtrée
Et il s'agit par la suite de protéger les feuilles :
Dans la macro, j'ai ajouté cette ligne de code :
Sh.EnableAutoFilter = True
avant d'appliquer la protection de la feuille.
'------------------------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.EnableAutoFilter = True
Sh.Protect "MotDePasse"
Next
End Sub
'------------------------------------------
"Alexis59" a écrit dans le message de groupe de
discussion :
Petit ajout :
est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
automatiques malgrés la protection ?
A l'avance, merci encore !
Alexis
"Alexis59" a écrit :
> Merci beaucoup !
>
> Ca marche trés bien !
>
> Est-t-il également possible de supprimer la protection de manière
> automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> une macro) ?
>
> A l'avance merci encore !
>
> Alexis
>
>
>
> "MichDenis" a écrit :
>
> > Bonjour Alexis59,
> >
> > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > une petite procédure comme ceci :
> > '--------------------------
> > Sub Protection_Des_Feuilles()
> > Dim Sh As Worksheet
> >
> > For each sh in ThisWorkbook.Worksheets
> > Sh.Protect "MotDePasse"
> > Next
> > End Sub
> > '--------------------------
> >
> > Il n'y pas d'autres méthodes !
> >
> >
> >
> > "Alexis59" a écrit dans le message de groupe de
> > discussion :
> > Bonjour à tous,
> >
> > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > un mot de passe plusieur feuilles à la fois.
> > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> >
> > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > méthode simple ?
> >
> > A l'avance merci beacoup !
> >
> > Alexis
> >
> >
Pour autoriser des filtres automatiques sur une feuille protégée :
A ) AVANT d'effectuer la protection de la feuille
il faut s'assurer que les "boutons" du filtre automatique sont déjà
sur la plage que l'on désire filtrée
Et il s'agit par la suite de protéger les feuilles :
Dans la macro, j'ai ajouté cette ligne de code :
Sh.EnableAutoFilter = True
avant d'appliquer la protection de la feuille.
'------------------------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.EnableAutoFilter = True
Sh.Protect "MotDePasse"
Next
End Sub
'------------------------------------------
"Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A4C935AD-E8FC-43FD-99A1-B53EED7E024E@microsoft.com...
Petit ajout :
est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
automatiques malgrés la protection ?
A l'avance, merci encore !
Alexis
"Alexis59" a écrit :
> Merci beaucoup !
>
> Ca marche trés bien !
>
> Est-t-il également possible de supprimer la protection de manière
> automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> une macro) ?
>
> A l'avance merci encore !
>
> Alexis
>
>
>
> "MichDenis" a écrit :
>
> > Bonjour Alexis59,
> >
> > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > une petite procédure comme ceci :
> > '--------------------------
> > Sub Protection_Des_Feuilles()
> > Dim Sh As Worksheet
> >
> > For each sh in ThisWorkbook.Worksheets
> > Sh.Protect "MotDePasse"
> > Next
> > End Sub
> > '--------------------------
> >
> > Il n'y pas d'autres méthodes !
> >
> >
> >
> > "Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
> > discussion : A27A65D0-A200-4064-919B-9B24729FACE5@microsoft.com...
> > Bonjour à tous,
> >
> > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > un mot de passe plusieur feuilles à la fois.
> > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> >
> > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > méthode simple ?
> >
> > A l'avance merci beacoup !
> >
> > Alexis
> >
> >
Pour autoriser des filtres automatiques sur une feuille protégée :
A ) AVANT d'effectuer la protection de la feuille
il faut s'assurer que les "boutons" du filtre automatique sont déjà
sur la plage que l'on désire filtrée
Et il s'agit par la suite de protéger les feuilles :
Dans la macro, j'ai ajouté cette ligne de code :
Sh.EnableAutoFilter = True
avant d'appliquer la protection de la feuille.
'------------------------------------------
Sub Protection_Des_Feuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.EnableAutoFilter = True
Sh.Protect "MotDePasse"
Next
End Sub
'------------------------------------------
"Alexis59" a écrit dans le message de groupe de
discussion :
Petit ajout :
est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
automatiques malgrés la protection ?
A l'avance, merci encore !
Alexis
"Alexis59" a écrit :
> Merci beaucoup !
>
> Ca marche trés bien !
>
> Est-t-il également possible de supprimer la protection de manière
> automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> une macro) ?
>
> A l'avance merci encore !
>
> Alexis
>
>
>
> "MichDenis" a écrit :
>
> > Bonjour Alexis59,
> >
> > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > une petite procédure comme ceci :
> > '--------------------------
> > Sub Protection_Des_Feuilles()
> > Dim Sh As Worksheet
> >
> > For each sh in ThisWorkbook.Worksheets
> > Sh.Protect "MotDePasse"
> > Next
> > End Sub
> > '--------------------------
> >
> > Il n'y pas d'autres méthodes !
> >
> >
> >
> > "Alexis59" a écrit dans le message de groupe de
> > discussion :
> > Bonjour à tous,
> >
> > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > un mot de passe plusieur feuilles à la fois.
> > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> >
> > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > méthode simple ?
> >
> > A l'avance merci beacoup !
> >
> > Alexis
> >
> >
Un fichier exemple :
http://cjoint.com/?jqs0iNH1cA
"Alexis59" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis et merci de ton aide.
Malheuresement j'ai l'impression que ça ne marche pas (je suis sous 2007)
pourtant j'ai scrupuleusement recopié ce que tu as communiqué, mais malgrés
tout, pas moyen de mettre à jour le filtre automatique.
Pire, même si je ne vérouille pas les cellules servant au filtre, une fois
la feuille protégée, plus possible de faire un choix de filtre...
Une idée ?
Alexis
"michdenis" a écrit :
> Pour autoriser des filtres automatiques sur une feuille protégée :
>
> A ) AVANT d'effectuer la protection de la feuille
> il faut s'assurer que les "boutons" du filtre automatique sont déjà
> sur la plage que l'on désire filtrée
>
> Et il s'agit par la suite de protéger les feuilles :
>
> Dans la macro, j'ai ajouté cette ligne de code :
> Sh.EnableAutoFilter = True
> avant d'appliquer la protection de la feuille.
>
> '------------------------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For Each Sh In ThisWorkbook.Worksheets
> Sh.EnableAutoFilter = True
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '------------------------------------------
>
>
>
> "Alexis59" a écrit dans le message de groupe de
> discussion :
> Petit ajout :
>
> est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
> automatiques malgrés la protection ?
>
> A l'avance, merci encore !
>
> Alexis
>
> "Alexis59" a écrit :
>
> > Merci beaucoup !
> >
> > Ca marche trés bien !
> >
> > Est-t-il également possible de supprimer la protection de manière
> > automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> > une macro) ?
> >
> > A l'avance merci encore !
> >
> > Alexis
> >
> >
> >
> > "MichDenis" a écrit :
> >
> > > Bonjour Alexis59,
> > >
> > > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > > une petite procédure comme ceci :
> > > '--------------------------
> > > Sub Protection_Des_Feuilles()
> > > Dim Sh As Worksheet
> > >
> > > For each sh in ThisWorkbook.Worksheets
> > > Sh.Protect "MotDePasse"
> > > Next
> > > End Sub
> > > '--------------------------
> > >
> > > Il n'y pas d'autres méthodes !
> > >
> > >
> > >
> > > "Alexis59" a écrit dans le message de groupe de
> > > discussion :
> > > Bonjour à tous,
> > >
> > > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > > un mot de passe plusieur feuilles à la fois.
> > > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> > >
> > > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > > méthode simple ?
> > >
> > > A l'avance merci beacoup !
> > >
> > > Alexis
> > >
> > >
Un fichier exemple :
http://cjoint.com/?jqs0iNH1cA
"Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 9BC99823-7294-4D86-BEFE-8088BDAEEF7B@microsoft.com...
Bonjour Michdenis et merci de ton aide.
Malheuresement j'ai l'impression que ça ne marche pas (je suis sous 2007)
pourtant j'ai scrupuleusement recopié ce que tu as communiqué, mais malgrés
tout, pas moyen de mettre à jour le filtre automatique.
Pire, même si je ne vérouille pas les cellules servant au filtre, une fois
la feuille protégée, plus possible de faire un choix de filtre...
Une idée ?
Alexis
"michdenis" a écrit :
> Pour autoriser des filtres automatiques sur une feuille protégée :
>
> A ) AVANT d'effectuer la protection de la feuille
> il faut s'assurer que les "boutons" du filtre automatique sont déjà
> sur la plage que l'on désire filtrée
>
> Et il s'agit par la suite de protéger les feuilles :
>
> Dans la macro, j'ai ajouté cette ligne de code :
> Sh.EnableAutoFilter = True
> avant d'appliquer la protection de la feuille.
>
> '------------------------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For Each Sh In ThisWorkbook.Worksheets
> Sh.EnableAutoFilter = True
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '------------------------------------------
>
>
>
> "Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : A4C935AD-E8FC-43FD-99A1-B53EED7E024E@microsoft.com...
> Petit ajout :
>
> est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
> automatiques malgrés la protection ?
>
> A l'avance, merci encore !
>
> Alexis
>
> "Alexis59" a écrit :
>
> > Merci beaucoup !
> >
> > Ca marche trés bien !
> >
> > Est-t-il également possible de supprimer la protection de manière
> > automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> > une macro) ?
> >
> > A l'avance merci encore !
> >
> > Alexis
> >
> >
> >
> > "MichDenis" a écrit :
> >
> > > Bonjour Alexis59,
> > >
> > > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > > une petite procédure comme ceci :
> > > '--------------------------
> > > Sub Protection_Des_Feuilles()
> > > Dim Sh As Worksheet
> > >
> > > For each sh in ThisWorkbook.Worksheets
> > > Sh.Protect "MotDePasse"
> > > Next
> > > End Sub
> > > '--------------------------
> > >
> > > Il n'y pas d'autres méthodes !
> > >
> > >
> > >
> > > "Alexis59" <Alexis59@discussions.microsoft.com> a écrit dans le message de groupe de
> > > discussion : A27A65D0-A200-4064-919B-9B24729FACE5@microsoft.com...
> > > Bonjour à tous,
> > >
> > > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > > un mot de passe plusieur feuilles à la fois.
> > > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> > >
> > > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > > méthode simple ?
> > >
> > > A l'avance merci beacoup !
> > >
> > > Alexis
> > >
> > >
Un fichier exemple :
http://cjoint.com/?jqs0iNH1cA
"Alexis59" a écrit dans le message de groupe de
discussion :
Bonjour Michdenis et merci de ton aide.
Malheuresement j'ai l'impression que ça ne marche pas (je suis sous 2007)
pourtant j'ai scrupuleusement recopié ce que tu as communiqué, mais malgrés
tout, pas moyen de mettre à jour le filtre automatique.
Pire, même si je ne vérouille pas les cellules servant au filtre, une fois
la feuille protégée, plus possible de faire un choix de filtre...
Une idée ?
Alexis
"michdenis" a écrit :
> Pour autoriser des filtres automatiques sur une feuille protégée :
>
> A ) AVANT d'effectuer la protection de la feuille
> il faut s'assurer que les "boutons" du filtre automatique sont déjà
> sur la plage que l'on désire filtrée
>
> Et il s'agit par la suite de protéger les feuilles :
>
> Dans la macro, j'ai ajouté cette ligne de code :
> Sh.EnableAutoFilter = True
> avant d'appliquer la protection de la feuille.
>
> '------------------------------------------
> Sub Protection_Des_Feuilles()
> Dim Sh As Worksheet
>
> For Each Sh In ThisWorkbook.Worksheets
> Sh.EnableAutoFilter = True
> Sh.Protect "MotDePasse"
> Next
> End Sub
> '------------------------------------------
>
>
>
> "Alexis59" a écrit dans le message de groupe de
> discussion :
> Petit ajout :
>
> est-t-il possible dans le même temps d'autoriser l'utilisation des filtres
> automatiques malgrés la protection ?
>
> A l'avance, merci encore !
>
> Alexis
>
> "Alexis59" a écrit :
>
> > Merci beaucoup !
> >
> > Ca marche trés bien !
> >
> > Est-t-il également possible de supprimer la protection de manière
> > automatique (en ne saisissant le code qu'une fois voir même pas du tout via
> > une macro) ?
> >
> > A l'avance merci encore !
> >
> > Alexis
> >
> >
> >
> > "MichDenis" a écrit :
> >
> > > Bonjour Alexis59,
> > >
> > > Tu fais une boucle sur chaque feuille de calcul de ton fichier
> > > une petite procédure comme ceci :
> > > '--------------------------
> > > Sub Protection_Des_Feuilles()
> > > Dim Sh As Worksheet
> > >
> > > For each sh in ThisWorkbook.Worksheets
> > > Sh.Protect "MotDePasse"
> > > Next
> > > End Sub
> > > '--------------------------
> > >
> > > Il n'y pas d'autres méthodes !
> > >
> > >
> > >
> > > "Alexis59" a écrit dans le message de groupe de
> > > discussion :
> > > Bonjour à tous,
> > >
> > > Je suis sur Excel 2007, et comme sur le 2003, je n'arrive pas à protéger par
> > > un mot de passe plusieur feuilles à la fois.
> > > Je prévois d'avoir environ 40 feuilles dans mon classeur, et la manipulation
> > > pour chacune d'elles à chaque fois n'est tout simplement pas envisageable.
> > >
> > > J'ai l'impression que les quelques réponses que j'ai pu trouver dans le
> > > forum ne passe que par VBA... que je ne connais pas du tout. Y a t-il une
> > > méthode simple ?
> > >
> > > A l'avance merci beacoup !
> > >
> > > Alexis
> > >
> > >