Discussion :

[Fab_nabou]

bonjour dans une feuille j'ai des cellules que je souhaite verrouiller et d'autres modifiables. jusqu'à là tout va bien.
maintenant pour renseigner les cellules modifiables j'utilise des macros permettant de mettre une couleur et du texte dans ces cellules (macros exécutées à l'aide de boutons dans une barre d'outils).
le pb est que lorsque je protège la feuille et déverrouille les cellules qui doivent être modifiables, lorsque j'exécute l'action j'ai un message d'erreur :
"Erreur d'exécution '1004'
Imposssible de définir la propriété ColorIndex de la classe Interior"

code de l'action :

Code :

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

1
2
3
4
With Selection.Interior
        .ColorIndex = couleur
        .Pattern = xlSolid
    End With

comment faire pour pouvoir exécuter des macros en protégeant ma feuille ?

merci de votre aide.

[Invité]

Tu as 2 solutions :

1) Lors de la protection de ta feuille, dans la fenêtre "Protection de la feuille", tu autorises les utilisateurs à modifier le format des cellules

2) Soit dans ton code VBA tu mets

Code :

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

1
2
3
ActiveSheet.Unprotect
' Ton code .....
ActiveSheet.Protect

Voilà

[zebulon2212]

il existe plusieur niveau de protection sur vba excel :
la protection du classeur
la protection d'une feuille
la protection d'une cellule
ces trois protection agissent de manière hiérarchique, chaque protection empechant les modification de la protection du dessous

Dans ma boite pour proteger les fichiers qualité (j'utilise entre autre aussi une protection des macro par un code et je désactive certaines actions dans les menu) mais surtout, je me sert d'une fonction qui désactive et réactive ma protection du classeur :

Code :

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

1
2
3
4
5
6
7
8
Sub ChangeProtection()
    Dim i As Integer
    If ActiveWorkbook.ProtectStructure = True Or ActiveWorkbook.ProtectWindows = True Then
            ActiveWorkbook.Unprotect
    Else
            ActiveWorkbook.Protect
    End If
End Sub

cette fonction est appelé au debut et à la fin de la quasi totalité de mes macros
ensuite si je dois travailler sur des cellules protégé, je dois ajouter ces deux lignes :

Code :

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

1
2
ActiveWorkbook.Worksheets("NomFeuille").Unprotect
ActiveWorkbook.Worksheets("NomFeuille").Protect

au debut et à la fin de chaque modification
et si jamais je dois protéger d'autres cellules ou en débloquer, j'utilise cette fonction :

Code :

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

1
2
Range("AI2:AK4").Locked = False
Range("A1:C1").Locked = True

mais à chaque fois je dois bloquer et debloquer dans l'ordre.
Attention : Le fait de bloquer une cellule empeche uniquement l'utilisateur de saisir manuellement des données et uniquement si au moins la feuille est protégé aussi

si ca peut t'aider...

[Fab_nabou]

d'accord je pense avoir compris vos réponses, mais dans mon cas certaines cellules de la feuille doivent tout le temps être verrouillées donc je ne peux pas faire :

Code :

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

ActiveSheet.Unprotect

car alors toutes les cellules deviennent modifiables non ?

dans la feuille je voudrais ne pouvoir modifier que les cellules non verrouillées.

[ouskel'n'or]

Pour exécuter ton code, tu dois déprotéger ta feuille, donc, déprotège-la. Une fois ton code exécuté, tu la reprotèges. Les utilisateurs ne vont pas aller dans la feuille pendant l'exécution du code.
zebulon2212 a très bien expliqué ça.
Tu déverrouilles les seules cellules auxquelles doivent pouvoir accéder les utilisateurs. Une fois le document protégé, ils n'aurront accés qu'à ces cellules. Par contre, déprotégée par le code, la feuille sera accessible par le code.
Qu'est-ce qui te gène ?
A+

[Fab_nabou]

ok j'ai compris j'enlève la protection, je teste si les cellules sont verrouillées, si non j'exécute la macro.
sauf que par j'ai une macro qui permet de mettre un fond de couleur et du texte dans les cellules sélectionnées, je sélectionne les cellules puis exécute la macro.

mais dans ces cellules sélectionnées je peux en avoir des verrouillées et des non verrouillées, comme test j'ai mis :

Code :

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

If Selection.Locked = True then ...

le pb est que ce test renvoie faux si dans la sélection il y a des cellules verrouillées et des cellules non verrouillées.

comment puis-je faire ?