ListObjects - protection - rajout
Bonjour au forum,
J'ai crée un tableau à destination des collègues et pour éviter une gestion chronophage une macro permettant de rajouter des lignes à la demande sans altérer la structure du tableau.
Problème : la ligne nouvellement créée est verrouillée automatiquement et empêche la saisie des utilisateurs dans les différentes cellules.
Comment faire pour déverrouiller par macro ces cellules ? Est-ce possible dans cette Sub ou faudrait-il en créer une autre en complément ?
Merci d'avance pour votre retour :)
Code:
1
2
3
4
5
6
7
8
| Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "Zzzzz"
Set ListRow = ActiveWorkbook.Worksheets("2021").ListObjects(1).ListRows.Add
ActiveSheet.Protect "Zzzzz"
End Sub |
