Ajout de formules VBA sur feuille protégée

Bonjour à tous.

J'ai un document dans lequel j'ai ajouté du VBA pour ajouter des formules automatiquement :

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Dim Derlig As Integer

With Sheets(Target.Value)

Derlig = .Range("A65536").End(xlUp).Row + 1

.Range("A" & Derlig) = Cells(Target.Row, 2)

.Range("C" & Derlig) = Cells(3, Target.Column)

.Range("F" & Derlig).Formula = "=E" & Derlig & "-D" & Derlig

If Target = "Hs" Then

.Range("I" & Derlig).Formula = _

"=IF(A" & Derlig & "=HsIndiv!$C$14,"""",IF(OR(C" & Derlig & "<HsIndiv!$F$12,C" & Derlig & ">HsIndiv!$F$13,G" & Derlig & "<>""A payer""),"""",A" & Derlig & "))"

.Range("J" & Derlig).Formula = _

"=IF(OR(A" & Derlig & "<>HsIndiv!$C$14,C" & Derlig & "<HsIndiv!$F$12,C" & Derlig & ">HsIndiv!$F$13,G" & Derlig & "<>""A payer""),"""",MAX(J$1:J" & Derlig - 1 & ")+1)"

.Range("K" & Derlig).Formula = _

"=IF(OR(A" & Derlig & "<>Heures!$B$5,G" & Derlig & "<>""A récupérer""),"""",MAX($K$1:K" & Derlig & ")+1)"

End If

If Target = "Ré" Then

.Range("G" & Derlig).Formula = _

"=IF(A" & Derlig & "<>Heures!$B$5,"""",MAX($G1:G" & Derlig - 1 & ")+1)"

End If

.Select

End With

End Sub

Comme je ne veux pas qu'on puisse saisir dans les cases où il y a les formules, je verrouille et protège le document.

A ce moment là, bah mon code ne fonctionne plus !

Y aurait-il une solution ?

Bonjour,

Il faut déprotéger ta feuille avant et la reprotéger après.

Dans ton code :

With Sheets(Target.Value)
.unprotect "mot de passe"
Derlig....
.....
End with
.protect "mot de passe"
End Sub

Amicalement

Dan

Mais dans ce cas, celui qui va lire le code connaîtra le mot de passe ?

Tiens y a plus le choix résolu ?

merci Dan,

au fait tu as lu mon petit message privé ?

Re,

Mais dans ce cas, celui qui va lire le code connaîtra le mot de passe

Oui sauf si tu protèges tes macros VBA.

Tiens y a plus le choix résolu ?

Tu as une petite flèche verte à droite du bouton EDITER sur chaque post. Clique dessus pour cloturer. Elle se met en vert lorsque le fil est terminé et en rouge pour le réouvrir.

Dans le forum à droite de chaque fil tu peux voir aussi un V en vert quand le fil est cloturé.

explications ici pour ceux qui ont pas lu... --> https://forum.excel-pratique.com/viewtopic.php?f=2&t=13

Amicalement

Dan