OVH Cloud OVH Cloud

verouillage de cellules

1 réponse
Avatar
manu
Bonjour,

Un client me pose un probleme auquel je suis incapable de=20
repondre c'est =E0 dire :
Il faudrait qu'il puisse verrouiller les cellules qu'il=20
remplit pour que quand il passe son document =E0 un confrere=20
ce dernier ne puisse pas modifier ce qu'il y a sur la=20
feuille mais par contre puisse remplir sa partie .

Merci pour votre aide
Cordialement
Manu

1 réponse

Avatar
michdenis
Bonjour Manu,

Si tu exécutes cette macro, seulement les cellules vides seront accessibles, toutes les autres seront protégées ...
adapte le nom de la feuille dans la procédure....

'-----------------------
Sub Protection()

On Error Resume Next
With Worksheets("Feuil2")
.Unprotect
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect
End With

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


Salutations!



"manu" a écrit dans le message de news:1798901c44950$d542e980$
Bonjour,

Un client me pose un probleme auquel je suis incapable de
repondre c'est à dire :
Il faudrait qu'il puisse verrouiller les cellules qu'il
remplit pour que quand il passe son document à un confrere
ce dernier ne puisse pas modifier ce qu'il y a sur la
feuille mais par contre puisse remplir sa partie .

Merci pour votre aide
Cordialement
Manu