Problème: Tableau excel et protection de formules.
Résolu
Franki
-
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
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
Bonsoir,
Une solution via VBA en supposant que le mot de passe est à blanc
https://www.cjoint.com/c/GKAvlbxc5fQ
Une solution via VBA en supposant que le mot de passe est à blanc
https://www.cjoint.com/c/GKAvlbxc5fQ
ç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
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