Question sur la protection des cellules en vba

nicolase78 · 2 Octobre 2011

Bonjour à tous,

J'ai réussi à proteger les cellules que je voulais dans une feuille à l'aide du code suivant :

Code:

Worksheets("Feuil1").Protection.AllowEditRanges.Add Title:="Range1", Range:= _
        Range("A1:B3"))
Worksheets("Feuil1").Protect Password:="pwd", DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True

Seulement là j'autorise seulement certaines cellules dans lesquels on peut écrire. Je vous savoir si je voulais rajouter la C5, je suis obliger de déprotéger ma feuille comme le code en dessous et de relancer le code en haut avec C5 :

Code:

Worksheets("matrice_Travaux_FI").Unprotect
Worksheets("matrice_Travaux_FI").Protection.AllowEditRanges("Range1").Delete

Y'a t-il plus simple ??? Merci à tous d'avance.

Dull · 2 Octobre 2011

Re : Question sur la protection des cellules en vba

Salut nicolas78, le Forum

Peut-être comme ceci si j'ai bien compris ... pas tester

Code:

Worksheets("Feuil1").Protection.AllowEditRanges.Add Title:="Range1", Range:= _
        Range("A1:B3,C5"))
Worksheets("Feuil1").Protect Password:="pwd", DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True

Bonne Journée

nicolase78 · 2 Octobre 2011

Re : Question sur la protection des cellules en vba

Merci pour ta réponse. Par contre je vais devoir protéger des cellules par la suite que je ne connaîtrais pas à l'avance.
Cela marcherai si je savais à l'avance que je devais protéger C5 mais cela pourrait être B8 etc...

Question sur la protection des cellules en vba

nicolase78

Guest

Dull

XLDnaute Barbatruc

nicolase78

Guest

Discussions similaires

Question sur la protection des cellules en vba

nicolase78

Guest

Dull

XLDnaute Barbatruc

nicolase78

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency