Problème: Tableau excel et protection de formules.

Résolu
Franki -  
 Franki -
Bonjour,

J'ai un tableau excel qui fonctionne très bien avec des formules.
Lorsque je protège mes formules du tableau, je ne peux plus créer de lignes supplémentaires; Mon tableau ne crée plus de lignes (les nouvelles lignes se créent automatiquement à partir de la saisie du numéro de dossier dans la première colonne)....
même lorsque je sélectionne dans révisions/protection "insérer des lignes".

D'avance merci à tous pour une piste

Bien cordialement,

Frank

http://www.cjoint.com/c/GKAkabeYRea

1 réponse

  1.
    thev Messages postés 2010 Date d'inscription   Statut Membre Dernière intervention   723
     
    Bonsoir,

    Une solution via VBA en supposant que le mot de passe est à blanc

    https://www.cjoint.com/c/GKAvlbxc5fQ
    0
    1. Franki
       
      Bonjour,
      ça a l'air de marcher bien, mais comment reproduire cela sur d'autres fichier je ne vois pas de trace de code dans la partie développeur VBA?

      Merci
      0
    2. Franki
       
      Ah j'ai trouvé, encore merci je vais tester.
      Je remplace Empty par mon mot de passe c'est bien ça?
      Bonne soirée.


      Private Sub Worksheet_Change(ByVal Target As Range)
      Const mot_de_passe As String = ""
      Dim cell_saisie As Range

      With Me.ListObjects(1)
      Set cell_saisie = .DataBodyRange.Cells(.ListRows.Count + 1, 1)
      If Not Intersect(Target, cell_saisie) Is Nothing Then
      Application.EnableEvents = False
      Me.Unprotect mot_de_passe
      .ListRows.Add
      .DataBodyRange.Cells(.ListRows.Count, 1) = cell_saisie: cell_saisie = Empty
      Me.Protect mot_de_passe
      Application.EnableEvents = True
      End If
      End With

      End Sub
      0
      1. Franki > Franki
         
        Ok j'ai trouvé merci beaucoup thev, bonne soirée.
        0