OVH Cloud OVH Cloud

Protéger ou déprotéger plusieurs feuilles d'un coup, sans VBA S. V.

7 réponses
Avatar
pmartini
Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un coup
plusieurs feuilles d'un classeur, tout en ayant accès aux options de
protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...

7 réponses

Avatar
isabelle
bonjour,

ce n'est pas possible sans vba, à moin de protéger le classeur en entier.

isabelle


Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un coup
plusieurs feuilles d'un classeur, tout en ayant accès aux options de
protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...


Avatar
jps
bonjour mon ange mitrailleur
7 posts l'un derrière l'autre???? waouh!!!! faut dire qu'à cette heure, de
ce côté-ci de la rivière atlantique, il n'y a plus grand monde debout....LL
en aurait été capable dans ses moments de haute pression mais comme on ne le
voit plus....
hého! laurent!, si t'es là, frappe un coup, si t'es pas là, frappe deux
coups
jps

"isabelle" a écrit dans le message de news:
%
bonjour,

ce n'est pas possible sans vba, à moin de protéger le classeur en entier.

isabelle


Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un
coup plusieurs feuilles d'un classeur, tout en ayant accès aux options de
protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...




Avatar
pmartini
Merci Isabelle; ce qui m'ennuie, c'est qu'en protégeant une feuille, je peux
choisir mes options de protection, mais pas en protégeant un classeur...

Bonne journée...


bonjour,

ce n'est pas possible sans vba, à moin de protéger le classeur en entier.

isabelle


Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un coup
plusieurs feuilles d'un classeur, tout en ayant accès aux options de
protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...





Avatar
isabelle
dans ce cas, y a pas beaucoup d'autre choix que de passer par vba.

'Sélectionner au préalable les feuilles à protéger

Sub Protéger()
Dim grp()
For Each f In ActiveWorkbook.Windows(1).SelectedSheets
x = x + 1
ReDim Preserve grp(x)
grp(x) = f.Name
Next
Sheets(1).Select
For i = 1 To x
Sheets(grp(i)).Protect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

Sub DeProtéger()
For Each f In ActiveWorkbook.Windows(1).SelectedSheets
Sheets(f.Name).Unprotect Password:="zaza"
Next
End Sub

isabelle



Merci Isabelle; ce qui m'ennuie, c'est qu'en protégeant une feuille, je peux
choisir mes options de protection, mais pas en protégeant un classeur...

Bonne journée...



bonjour,

ce n'est pas possible sans vba, à moin de protéger le classeur en entier.

isabelle



Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un coup
plusieurs feuilles d'un classeur, tout en ayant accès aux options de
protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...







Avatar
isabelle
:-)
j'avais quelque retard à reprendre,
ps/ Laurent si c'est simplement que tu ne veuilles nous adresser un p'tit bonjour, frappe trois coups.

isabelle


bonjour mon ange mitrailleur
7 posts l'un derrière l'autre???? waouh!!!! faut dire qu'à cette heure, de
ce côté-ci de la rivière atlantique, il n'y a plus grand monde debout....LL
en aurait été capable dans ses moments de haute pression mais comme on ne le
voit plus....
hého! laurent!, si t'es là, frappe un coup, si t'es pas là, frappe deux
coups
jps

"isabelle" a écrit dans le message de news:
%

bonjour,

ce n'est pas possible sans vba, à moin de protéger le classeur en entier.

isabelle



Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un
coup plusieurs feuilles d'un classeur, tout en ayant accès aux options de
protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...









Avatar
jps
:-))))
jps

"isabelle" a écrit dans le message de news:

:-)
j'avais quelque retard à reprendre,
ps/ Laurent si c'est simplement que tu ne veuilles nous adresser un p'tit
bonjour, frappe trois coups.

isabelle


bonjour mon ange mitrailleur
7 posts l'un derrière l'autre???? waouh!!!! faut dire qu'à cette heure,
de ce côté-ci de la rivière atlantique, il n'y a plus grand monde
debout....LL en aurait été capable dans ses moments de haute pression
mais comme on ne le voit plus....
hého! laurent!, si t'es là, frappe un coup, si t'es pas là, frappe deux
coups
jps

"isabelle" a écrit dans le message de news:
%

bonjour,

ce n'est pas possible sans vba, à moin de protéger le classeur en entier.

isabelle



Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un
coup plusieurs feuilles d'un classeur, tout en ayant accès aux options
de protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...










Avatar
pmartini
Merci beaucoup Isabelle et bonne semaine...


dans ce cas, y a pas beaucoup d'autre choix que de passer par vba.

'Sélectionner au préalable les feuilles à protéger

Sub Protéger()
Dim grp()
For Each f In ActiveWorkbook.Windows(1).SelectedSheets
x = x + 1
ReDim Preserve grp(x)
grp(x) = f.Name
Next
Sheets(1).Select
For i = 1 To x
Sheets(grp(i)).Protect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

Sub DeProtéger()
For Each f In ActiveWorkbook.Windows(1).SelectedSheets
Sheets(f.Name).Unprotect Password:="zaza"
Next
End Sub

isabelle



Merci Isabelle; ce qui m'ennuie, c'est qu'en protégeant une feuille, je peux
choisir mes options de protection, mais pas en protégeant un classeur...

Bonne journée...



bonjour,

ce n'est pas possible sans vba, à moin de protéger le classeur en entier.

isabelle



Bonjour,

Je cherche un moyen, sans utiliser VBA, de protéger ou déprotéger d'un coup
plusieurs feuilles d'un classeur, tout en ayant accès aux options de
protection (identiques à toutes les feuilles du classeur).

Merci pour votre aide...