Problème: Tableau excel et protection de formules. [Résolu]

Franki - 26 nov. 2017 à 11:08 - Dernière réponse :  Franki
- 26 nov. 2017 à 23:50
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
Afficher la suite 

4 réponses

Répondre au sujet
thev 1688 Messages postés lundi 7 avril 2008Date d'inscription 10 décembre 2017 Dernière intervention - 26 nov. 2017 à 22:12
0
Utile
3
Bonsoir,

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

http://www.cjoint.com/c/GKAvlbxc5fQ
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
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
Franki > Franki - 26 nov. 2017 à 23:50
Ok j'ai trouvé merci beaucoup thev, bonne soirée.
Commenter la réponse de thev