XL 2016 Protéger des cellules de formules sur Excel

[Ayem]

Bonjour a tous,
j’ai essayé de protéger uniquement les cellules de mon tableau Excel contenant des formules. J’y suis parvenu mais lorsque j’essaie d’exécuter le macro associer à un bouton me permettant d’ajouter une nouvelle ligne à mon tableau pour un nouvel enregistrement, la mise en forme de la nouvelle ligne ne correspond plus à celle des lignes précédentes et je n’arrive plus à exécuter de nouveau mon Macro. A noter que tout cela se produit uniquement une fois que je protège les cellules avec formule de mon tableau. Les cellules que je veux protéger sont les cellules des colonnes A, F, G et P de mes tableaux. Voici ci joint mon fichier Excel. Merci

 

[cp4]

Bonjour Ayem

à tester

Sub Ajouteruneligneventes()
  Dim lig As Long
ActiveSheet.Unprotect 'si mot de pass--> Activesheet.unprotect "ton password" sans "
    lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
   'Cells(lig, 1) = Cells(lig - 1, 1) + 1
   Cells(lig, 2) = Date
   Cells(lig, 3).Select
ActiveSheet.Protect
End Sub

Bon week-end.