Curieux bug sur la protection des feuilles
Bonjour à vous tous,
Je rencontre un problème concernant la protection de mes feuilles.
Mon fichier est relativement simple, j'ai une macro qui vérifie les données renseignées par l'utilisateur et une autre qui permet d'enregistrer le fichier avec un nom spécifique et d'imprimer des feuilles.
Les macros fonctionnent bien le problème vient par contre de la protection des feuilles une fois ces manipulations faites :
Voici le code qui me pose problème :
Code:
1 2 3 4 5 6 7 8 9 10 11
| Sub Lock_feuille()
Dim n As Integer
Dim i As Integer
n = ThisWorkbook.Sheets.Count
For i = n To 1 Step -1
Sheets(i).Activate
ActiveWorkbook.Sheets(i).Protect DrawingObjects:=False, Password:="#FD°x15-140¤"
Next i
End Sub |
Dans ce code j'ai intégrer "DrawingObjects:= false" pour justement permettre à l'utilisateur de toujours utiliser les cases à cocher du fichier
Or, mes feuilles ne sont absolument par protégées, je peux par exemple modifier le contenu, supprimer des lignes et des colonnes.
Par contre, si je supprime "DrawingObjects:= false" de la fonction de protection, cette fois les feuilles sont parfaitement bien protégées, mais l'utilisateur ne peux plus utiliser toutes les cases à cocher des feuilles :oops:
Est-ce que quelqu'un a une idée pour résoudre ce problème ? ou l'a déjà rencontré ?
Merci d'avance