Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel protection d'une plage de cellules dans un groupe de travail

protection d'une plage de cellules dans un groupe de travail

3 réponses
Avatar
C15
Bonjour à tous et toutes,

J'ai un fichier dont les onglets sont identiques.
Quand je fais un groupe de travail de tous ces onglets et que je veux
protéger une même plage dans tous ces onglets, je m'aperçois que la
protection ne marche pas (Format/cellule/protection/décocher "Verrouillée...
puis Outils/protection/protéger le classeur).

Quelle est la bonne procédure ou est-ce effectivement impossible (c'est à
dire qu'il faut le faire feuillet par feuillet) ?

Merci de votre aide

A+

C15
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour C15,

Il faut effectivement le faire onglet par onglet...
tu peux cependant automatiser la tâche:

S'il s'agit de protéger/déprotéger certains onglets:

Sub proT()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.proTect Password:="mdp"
Next wS
End Sub

Sub deproT()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.Unprotect Password:="mdp"
Next wS
End Sub

S'il s'agit de protéger/déprotéger tous les onglets du classeur:
(avec une p'tite variante sur le Mot de Passe...)

Sub proT()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub

Sub deproT()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub


ChrisV


"C15" <Mé a écrit dans le message de news:
42556a0f$0$15276$
Bonjour à tous et toutes,

J'ai un fichier dont les onglets sont identiques.
Quand je fais un groupe de travail de tous ces onglets et que je veux
protéger une même plage dans tous ces onglets, je m'aperçois que la
protection ne marche pas (Format/cellule/protection/décocher
"Verrouillée... puis Outils/protection/protéger le classeur).

Quelle est la bonne procédure ou est-ce effectivement impossible (c'est à
dire qu'il faut le faire feuillet par feuillet) ?

Merci de votre aide

A+

C15



Avatar
C15
Bonjour Chris,

Merci de cette réponse ; c'est quand même dommage qu'on ne puisse le faire
sans code.

A +

C15
"ChrisV" a écrit dans le message de news:

Bonjour C15,

Il faut effectivement le faire onglet par onglet...
tu peux cependant automatiser la tâche:

S'il s'agit de protéger/déprotéger certains onglets:

Sub proT()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.proTect Password:="mdp"
Next wS
End Sub

Sub deproT()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.Unprotect Password:="mdp"
Next wS
End Sub

S'il s'agit de protéger/déprotéger tous les onglets du classeur:
(avec une p'tite variante sur le Mot de Passe...)

Sub proT()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub

Sub deproT()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub


ChrisV


"C15" <Mé a écrit dans le message de
news: 42556a0f$0$15276$
Bonjour à tous et toutes,

J'ai un fichier dont les onglets sont identiques.
Quand je fais un groupe de travail de tous ces onglets et que je veux
protéger une même plage dans tous ces onglets, je m'aperçois que la
protection ne marche pas (Format/cellule/protection/décocher
"Verrouillée... puis Outils/protection/protéger le classeur).

Quelle est la bonne procédure ou est-ce effectivement impossible (c'est à
dire qu'il faut le faire feuillet par feuillet) ?

Merci de votre aide

A+

C15







Avatar
C15
Rebonjour à tous et toutes,

J'ai trouvé une solution à ce problème :
Il suffit de faire un onglet avec toutes les saisies, formules, mises en
forme que l'on désire pour l'ensemble des feuillets concernés.
On y sélectionne les cellules où des modifications pourront être appliquées
et l'on met en place la procédure de protection.

On recopie ce feuillet autant de fois que l'on en a besoin.
L'on s'aperçoit que la protection a été appliquée aux feuillets recopiés.

A+

C15
"C15" <Mé a écrit dans le message de news:
42562820$0$15290$
Bonjour Chris,

Merci de cette réponse ; c'est quand même dommage qu'on ne puisse le faire
sans code.

A +

C15
"ChrisV" a écrit dans le message de news:

Bonjour C15,

Il faut effectivement le faire onglet par onglet...
tu peux cependant automatiser la tâche:

S'il s'agit de protéger/déprotéger certains onglets:

Sub proT()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.proTect Password:="mdp"
Next wS
End Sub

Sub deproT()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In Sheets(Array("Feuil1", "Feuil3"))
wS.Unprotect Password:="mdp"
Next wS
End Sub

S'il s'agit de protéger/déprotéger tous les onglets du classeur:
(avec une p'tite variante sur le Mot de Passe...)

Sub proT()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp:")
mdpConf = InputBox("Veuillez confirmer votre mdp:")
If mdp <> mdpConf Then
MsgBox "Erreur...", vbExclamation
proTect
End If
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.proTect Password:=mdp
Next w
End Sub

Sub deproT()
Dim w As Worksheet
mdp = InputBox("Saisissez votre mdp")
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:=mdp
Next w
End Sub


ChrisV


"C15" <Mé a écrit dans le message de
news: 42556a0f$0$15276$
Bonjour à tous et toutes,

J'ai un fichier dont les onglets sont identiques.
Quand je fais un groupe de travail de tous ces onglets et que je veux
protéger une même plage dans tous ces onglets, je m'aperçois que la
protection ne marche pas (Format/cellule/protection/décocher
"Verrouillée... puis Outils/protection/protéger le classeur).

Quelle est la bonne procédure ou est-ce effectivement impossible (c'est
à dire qu'il faut le faire feuillet par feuillet) ?

Merci de votre aide

A+

C15