XL 2016 Protéger des cellules de formules sur Excel

Ayem

XLDnaute Nouveau
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
 

Pièces jointes

  • EXCEL VENTES et DEPENSES (3).xlsm
    42 KB · Affichages: 8

cp4

XLDnaute Barbatruc
Bonjour Ayem

à tester
VB:
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T