Discussion :

[dark0000]

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 :

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

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

Est-ce que quelqu'un a une idée pour résoudre ce problème ? ou l'a déjà rencontré ?

Merci d'avance

[Zekraoui_Jakani]

Décochez la propriété "Locked" de chaque cellule et de chaque objet que l'utiisateur est appelé à manipuler, via "Format Cells" pour les cellules, et "Format Control" pour les objets.

[Pierre Fauconnier]

Salut.

De mon côté, ça fonctionne très bien avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
  Dim sh As Worksheet
 
  For Each sh In Worksheets
    sh.Protect DrawingObjects:=False, Password:="p"
  Next
End Sub

Es-tu certain de tes tests? Cela dit, DrawingObjects:=True n'interdit pas d'utiliser les contrôles de formulaire, mais simplement d'en modifier la structure. Dès lors, il me semblerait plus intéressant de réaliser un simple Protect qui verrouillera également la modification structurelle des contrôles tout en n'empêchant pas de les utiliser.

Il ne faut donc pas déverrouiller la protection des contrôles, sauf bien sûr si tu souhaites que l'utilisateur puisse les déplacer ou les modifier.

[dark0000]

Merci pour vos réponses

Je suis certain de mes tests mais avec l'aide de Zekraoui_Jakani sa solution s'est avérée utile.
Ce que j'ai fait :
- Je suis revenu à mon code de base et j'ai donc verrouillé toutes mes feuilles de calcule sans autre paramètre précis.
- J'ai affecté une zone de modification concernant des cellules qui étaient liées à mes checkbox
- J'ai enlevé le verrouillage sur ces cellules

Dans ce cas mon fichier se verrouille bien et l'utilisateur peut modifier les checkbox sans aucun message d'erreur.

Merci pour votre aide