OVH Cloud OVH Cloud

Protection de cellules

1 réponse
Avatar
Philippe
Bonjour,

Je prot=E8ge une feuille par la commande=20
Menu/Outils/Protection/ Prot=E9ger la feuille.
Seules sont alors accessibles les cellules non=20
verrouill=E9es.
=20
je prot=E8ge =E0 leur tour les cellules non verrouill=E9s, par=20
macro =E0 l'aide de l'instruction suivante :

ActiveSheet.EnableSelection =3D xlNoSelection

Si je sauvegarde mon classeur, la feuille reste prot=E9g=E9e.
Mais si je sauvegarde, ferme puis ouvre de nouveau ce=20
classeur, les cellules sont =E0 nouveau accessibles et=20
modifiables.

Au secours, quelqu'un peut-il m'aider ou est-ce un cas=20
d=E9sesp=E9r=E9 ?
(configuration : Windows et Office 2000).
Merci :

1 réponse

Avatar
michdenis
Bonjour Philippe,


Copie ceci dans le ThisWorkbook de ton classeur en modifiant le nom de la feuille

'----------------------
Private Sub Workbook_Open()

With Worksheets("Feuil1")
.Protect "motdepasse", True, True, True, True
.EnableSelection = xlNoSelection
End With

End Sub
'----------------------


Salutations!




"Philippe" a écrit dans le message de
news:2121d01c459ea$f16c9160$
Bonjour,

Je protège une feuille par la commande
Menu/Outils/Protection/ Protéger la feuille.
Seules sont alors accessibles les cellules non
verrouillées.

je protège à leur tour les cellules non verrouillés, par
macro à l'aide de l'instruction suivante :

ActiveSheet.EnableSelection = xlNoSelection

Si je sauvegarde mon classeur, la feuille reste protégée.
Mais si je sauvegarde, ferme puis ouvre de nouveau ce
classeur, les cellules sont à nouveau accessibles et
modifiables.

Au secours, quelqu'un peut-il m'aider ou est-ce un cas
désespéré ?
(configuration : Windows et Office 2000).
Merci :