Problème avec la mise en forme tableau

[Christian53]

Bonjour,
J'ai des données mises sous forme de tableau.
Un ID en colonne A puis Nom, Montant HT, taxe et Montant TTC (tout simple pour l'exemple).
J ai 2 boutons, un pour ajouter une ligne qui incrémente de 1 l'ID de la colonne A et un pour supprimer une ligne et un calcul dans la colonne "montant TTC".
Le fichier est destiné à un utilisateur distant et je ne veux pas qu'il efface malencontreusement l'ID de la colonneA et/ou le calcul du montant TTC.
Si je protège les cellules du tableau (colonne A et E) et que je protège la feuille, mes boutons (macros) ne fonctionnent plus.
Si j'utilise un formulaire de saisie, même problème, les boutons ne fonctionnent pas si des cellules du tableau sont protégées ! ...

Avez vous une solution simple sans ou avec VBA avec laquelle l'utilisateur peut ajouter une ligne dans le tableau qui incrément de 1 la colonne A, qui ajoute la formule "montant TTC" de la colonne E dans la nouvelle ligne tout en ne pouvant pas effacer les données de ces 2 colonnes ! ...
Merci !!!!!!!!! je patauge depuis longtemps avec ça.

 

[ERIC S]

Re : Problème avec la mise en forme tableau

Bonjour

dans Thisworkbook, si tu mets

Private Sub Workbook_Open()
Sheets("Contact").Protect userinterfaceonly:=True
End Sub

les macros peuvent accéder aux feuilles protégées

 

[Christian53]

Re : Problème avec la mise en forme tableau

Hmm, j'avais déjà essayé cette formule mais elle ne fonctionne pas, j ai toujours l'erreur d execution 1004.
Mais j ai trouvé la solution il y a peu avec un module
Option Explicit

Public Sub Protection()
ActiveSheet.Protect Password:="mot de passe", userinterfaceonly:=True
End Sub

Public Sub DeProtection()
ActiveSheet.Unprotect ("mot de passe")
End Sub

 

[Christian53]

Re : Problème avec la mise en forme tableau

Par ailleurs, saurez tu comment actualiser un TCD dans une feuille protégée quand on clique sur son onglet?
Car ici de même, si la feuille est protégée le TCD ne se met pas jour automatiquement même avec le code :
Option Explicit
Private Sub Worksheet_Activate()
PivotTables(1).RefreshTable
End Sub
dans la feuille

 

[ERIC S]

Re : Problème avec la mise en forme tableau

Re

de tête si ta feuille est protégée avec userinterfaceonly:=true cel adevrait marcher je pense

sinon tu déprotèges, tu mets à jour et tu reprotèges si ce n'est que sur une feuille