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 :
Dans ce code j'ai intégrer "DrawingObjects:= false" pour justement permettre à l'utilisateur de toujours utiliser les cases à cocher du fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Est-ce que quelqu'un a une idée pour résoudre ce problème ? ou l'a déjà rencontré ?
Merci d'avance
Partager