[XL-2007] Proteger feuille en ecriture Message d'erreur

[apdf1]

Bonjour,

J'aimerais protéger en écriture toute ma feuille sauf les cellules "K4 à Y50" donc j'ai sélectionné les cellules "K4 à Y50" / Format des cellules / décocher verrouiller et Révision / protéger la feuille.
Toute la feuille sauf les cellules "K4 à Y50" sont protéger en écriture, le seul problème est que dans les cellules "K4 à Y50" j'ai une macro qui me permet de sélectionner les noms qui se trouve dans la colonne "F4:F50" et les mettre en fond rouge en cliquant dans les cellules "K4 à Y50" avec le code se trouvant ci-dessous

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static LignePrécedente
    If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then
        Exit Sub
    End If
    If LignePrécedente <> "" Then
        If Cells(LignePrécedente, 6).Interior.ColorIndex = 3 Then
            Cells(LignePrécedente, 6).Interior.ColorIndex = 1
        End If
    End If
    LignePrécedente = Target.Row
        Cells(Target.Row, 6).Interior.ColorIndex = 3
End Sub

Quand j'ai protégé la feuille et que je click dans les cellules "K4 à Y50" il me viens un message d'erreur "Erreur définie par l'application ou par l'objet" et me sélectionne la ligne ci-dessous

Code :

Cells(Target.Row, 6).Interior.ColorIndex = 3

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

[mercatog]

Protège ta feuille à l'aide de macro

Code :

worksheets("Feuil1").protect password:="toto", userinterfaceonly:=true

[Daniel.C]

Bonjour,

Protège la feuille avec la ligne :

Code :

Sheets("Feuil1").Protect ,i Sheets("Feuil1").Protect , userinterfaceonly:=True

et optionnellement un mot de passe. Le paramètre "userinterfaceonly" permet aux macros de s'exécuter sur une feuille protégée.

[apdf1]

Bonjour Mercatoq

Je te remercie sa marche nickel, j'ai vue sur les forum qu'il était possible que les parties protéger n'était pas du tout accessible.
Ma question est-il possible et si oui comment ?

Bonne soirée


Max

[Daniel.C]

Erratum; j'ai écrit :

Code :

Sheets("Feuil1").Protect ,i Sheets("Feuil1").Protect , userinterfaceonly:=True

Il fallait lire :

Code :

Sheets("Feuil1").Protect , userinterfaceonly:=True