Protection d'une feuille avec macro liée à un tableau

Bonjour,

J'ai une macro qui permet de ajouter une ligne automatiquement à la fin de mes 2 tableaux d'une même feuille.

Je dois protéger la feuille pour que les utilisateurs ne puissent modifier que les cellules définies. La protection empêche l'exécution de la macro.

J'ai essayé plusieurs macros pour activer et désactiver la protection... Sans succès

Des idées?

Je place mon code ici

ub AjouterLigneAuxTableaux()
    Dim Ws As Worksheet
    Dim tbl As ListObject
    Dim nouvelleLigne As ListRow

    ' Nom feuille de travail
    Set Ws = ThisWorkbook.Sheets("xxx")

    ' Nom du tableau 1
    Set tbl = Ws.ListObjects("Tableaux")

    ' Ajoutez ligne au tableau 1
    Set nouvelleLigne = tbl.ListRows.Add

    ' Nom tableau 2
    Set tbl = Ws.ListObjects("Tableauxx")

    ' Ajoutez ligne tableau 2
    Set nouvelleLigne = tbl.ListRows.Add

    MsgBox "Ligne ajoutée aux tableaux avec succès.", vbInformation
End Sub

Bonjour,

Un essai et si tu ajoutes dans ta protection : Userinterfaceonly: = True

Worksheets("Feuille1").Protect Password:="MotDePasse", UserInterfaceOnly:=True

Bonjour Cleo et bonjour oiseaubleu

inséré dans le code celà donnerai quelque chose comme :

ub AjouterLigneAuxTableaux()
    Dim Ws As Worksheet
    Dim tbl As ListObject
    Dim nouvelleLigne As ListRow
'Déproteger feuille
Sheets("xxx").Unprotect "mon mot de passe"

    ' Nom feuille de travail
    Set Ws = ThisWorkbook.Sheets("xxx")

    ' Nom du tableau 1
    Set tbl = Ws.ListObjects("Tableaux")

    ' Ajoutez ligne au tableau 1
    Set nouvelleLigne = tbl.ListRows.Add

    ' Nom tableau 2
    Set tbl = Ws.ListObjects("Tableauxx")

    ' Ajoutez ligne tableau 2
    Set nouvelleLigne = tbl.ListRows.Add
'Reprotéger feuille
Sheets("xxx").Protect "mon mot de passe"

    MsgBox "Ligne ajoutée aux tableaux avec succès.", vbInformation
End Sub

Merci!!! Ça fonctionne