Problème: Tableau excel et protection de formules.

Résolu/Fermé
Franki - 26 nov. 2017 à 11:08
 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

1 réponse

thev
Messages postés
1770
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
11 novembre 2021
662
26 nov. 2017 à 22:12
Bonsoir,

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

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