OVH Cloud OVH Cloud

Protection d'un classeur.

5 réponses
Avatar
STEPHANE-LALUT
Bonjour,

Est-il possible de protéger en une seule fois toutes les cellules d'un
classeur contenant des formules, tout en laissant l'accès libre aux zone de
saisie.

Merci.

Stéphane.

5 réponses

Avatar
Patrick BASTARD
Bonjour, *STEPHANE-LALUT*
J'ai lu ton post 42ad9e66$0$165$
avec le plus grand intéret :

Par défaut, toutes les cellules de toutes les feuilles d'un classeur sont
verrouillées, mais la feuille n'est pas protégé (le verrou n'est pas fermé).
Il te suffit donc de sélectionner toutes les cellules dont tu souhaites
autoriser la modification, de les déverrouiller (données, cellule,
protection...), et de protéger ta feuille (outils, Protection, Protéger la
feuille) en choisissant tes options.

Si tu ne veux protéger que tes formules, le plus simple est de sérectionner
toute ta feuille (carré gris en haut à gauche), de déverrouiller toutes les
cellules, de sélectionner toutes les formules (données, atteindre, cellules,
formules) et de verrouiller la sélection.
Ces cellules seront inaccesibles une fois que tu auras protégé la feuille
(avec ou sans mot de passe).

Cette solution te convient-elle?


--
Bien amicordialement,
P. Bastard

Bonjour,

Est-il possible de protéger en une seule fois toutes les cellules d'un
classeur contenant des formules, tout en laissant l'accès libre aux
zone de saisie.

Merci.

Stéphane.


Avatar
ChrisV
Bonjour Stéphane,

Donc par macro... ;-)

Sub proTect()
Dim wSh As Worksheet
Set asH = ActiveSheet
Application.ScreenUpdating = False
For Each wSh In ThisWorkbook.Worksheets
wSh.Activate
On Error Resume Next
With Cells
.Locked = False
.SpecialCells(xlCellTypeFormulas, 23).Locked = True
End With
wSh.proTect Password:="zaza"
Next wSh
asH.Select
Set asH = Nothing
End Sub

Sub deproTect()
Dim w As Worksheet
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:="zaza"
Next
End Sub


ChrisV


"STEPHANE-LALUT" a écrit dans le message de
news: 42ad9e66$0$165$
Bonjour,

Est-il possible de protéger en une seule fois toutes les cellules d'un
classeur contenant des formules, tout en laissant l'accès libre aux zone
de saisie.

Merci.

Stéphane.



Avatar
STEPHANE-LALUT
Bonsoir Patrick,

Merci de ta réponse détaillée, je ne distinguais pas très bien la différence
entre le verrouillage de la cellule et la protection de la feuille. C'est
certainement la seule chose à faire quand on ne connais pas VBA ce qui est
mon cas.

Cordialement,

Stéphane.
"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *STEPHANE-LALUT*
J'ai lu ton post 42ad9e66$0$165$
avec le plus grand intéret :

Par défaut, toutes les cellules de toutes les feuilles d'un classeur sont
verrouillées, mais la feuille n'est pas protégé (le verrou n'est pas
fermé).
Il te suffit donc de sélectionner toutes les cellules dont tu souhaites
autoriser la modification, de les déverrouiller (données, cellule,
protection...), et de protéger ta feuille (outils, Protection, Protéger la
feuille) en choisissant tes options.

Si tu ne veux protéger que tes formules, le plus simple est de
sérectionner toute ta feuille (carré gris en haut à gauche), de
déverrouiller toutes les cellules, de sélectionner toutes les formules
(données, atteindre, cellules, formules) et de verrouiller la sélection.
Ces cellules seront inaccesibles une fois que tu auras protégé la feuille
(avec ou sans mot de passe).

Cette solution te convient-elle?


--
Bien amicordialement,
P. Bastard

Bonjour,

Est-il possible de protéger en une seule fois toutes les cellules d'un
classeur contenant des formules, tout en laissant l'accès libre aux
zone de saisie.

Merci.

Stéphane.






Avatar
STEPHANE-LALUT
Bonsoir Chris,

;-)))))))Voilà quelque chose qui doit pouvoir servir tel quel à bien
d'autres que moi...MERCI

Cordialement,

Steph.

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

Bonjour Stéphane,

Donc par macro... ;-)

Sub proTect()
Dim wSh As Worksheet
Set asH = ActiveSheet
Application.ScreenUpdating = False
For Each wSh In ThisWorkbook.Worksheets
wSh.Activate
On Error Resume Next
With Cells
.Locked = False
.SpecialCells(xlCellTypeFormulas, 23).Locked = True
End With
wSh.proTect Password:="zaza"
Next wSh
asH.Select
Set asH = Nothing
End Sub

Sub deproTect()
Dim w As Worksheet
Application.ScreenUpdating = False
For Each w In ThisWorkbook.Worksheets
w.unproTect Password:="zaza"
Next
End Sub


ChrisV


"STEPHANE-LALUT" a écrit dans le message
de news: 42ad9e66$0$165$
Bonjour,

Est-il possible de protéger en une seule fois toutes les cellules d'un
classeur contenant des formules, tout en laissant l'accès libre aux zone
de saisie.

Merci.

Stéphane.







Avatar
Patrick BASTARD
Bonjour, *STEPHANE-LALUT*
:
C'est certainement la seule chose à faire quand on ne
connais pas VBA ...



Absolument pas !

A mon humble avis, que j'ai la faiblesse de partager, la seule chose à faire
quand on ne connait pas VBA, c'est de s'y mettre.
Mais attention aux risques d'accoutumance...

;-)


--
Bien amicordialement,
P. Bastard