Discussion :

[Oska-Kajal]

Bonjour,

J'ai un fichier excel ou j'utilise des macro pour faire le calcul du prix des portes.
une macro me permet de choisir le modèle de porte et mets le prix de celle-ci dans mes tableaux de calculs..

Pour ne pas que les autres personnes modifier les calcul je fait protéger la feuille par une macro

Pour que les changements se fassent

"Set CD = Workbooks("Porte - Master.xlsm")
Set CS = Workbooks("Ajustement de prix.xlsm")
'Set CD2 = Workbooks("Prémontées - Avec Bâti.xlsm")
Set CD3 = Workbooks("Prémontées - Avec Bâti 4 9-16.xlsm")
For n = 1 To CD.Sheets.Count
CD.Sheets(n).Unprotect Password:="Admin" 'retirer la protection
Next n


après les changement

For n = 1 To CD.Sheets.Count
CD.Sheets(n).Protect Password:="Admin" 'replacer la protection
Next n


Pour optimiser ce fichier pour le travail il me faut que je puisse garder certaines cellules dans les feuille non protéger comme cela je peux modifier le pourcentage de profit voulu selon certaine circonstance.

J'ai voulu faire un code pour enlever la protection.
Avec ce code il y a un blocage.

'enlever protection cellule
CD.Sheets(1).Range("A37:B37").Unprotect Password:="Admin"

Est-ce qu'il y a quelque chose que je n'ai pas comprise?

Merci!

[joe.levrai]

Bonjour,

la méthode Protect concerne la protection d'une feuille
c'est la propriété Locked qui gère le verrouillage ou non d'une cellule

[Qwazerty]

Salut

Dans ta feuille, tu fais un click-droit sur la ou les cellules que tu souhaites garder accessibles.
Ensuite tu choisies "Format de Cellule", puis onglet "Protection" et la tu décoches "Verrouillée". Quand tu activeras la protection de la feuille, ces cellules seront déverrouillées.

Pour le reste Joe.Levrai dit vrai, protect est une méthode lié à ta feuille pas aux cellules de ta feuille.
Une fois ta feuille déverrouillée, si tu veux modifier l'accessibilité de tes cellules (quand la feuille sera de nouveau verouillé) il faut utiliser Locked, qui elle est une méthode liée aux cellules (Range ou Cells)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Range("A1:A5").Locked = False

++
Qwaz