(VBA) proteger une partie de ma feuille

Hello le forum,

Sur une de mes feuille je veux proteger quelques colonnes. J'utilise le code suivant :

Private Sub Worksheet_Activate()

'Protection des INDICATEURS/FORMULES/STATUTS

Dim Nb_Ind As Byte
Nb_Ind = 2
' On définit le nombre de ligne à proteger
Do While Not IsEmpty(Range("F" & Nb_Ind))
    Nb_Ind = Nb_Ind + 1
Loop
'On teste si la feuille est déjà protégée, si non, alors on protège la feuille
If ActiveSheet.ProtectContents = False Then
'  Range("F2:I" & Nb_Ind - 1).Select
'  With Selection
'    .Locked = True
'    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
'    , AllowFormattingCells:=True, AllowInsertingRows:=True, AllowSorting:= _
'        True, AllowFiltering:=True

        With ActiveSheet
            .Cells.Locked = False
            .Range("F2:I" & Nb_Ind - 1).Locked = True
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        End With
End If
End Sub

Mon problème c'est que sur la colonne A par exemple je veux pouvoir y mettre une couleur de fonds ... Mais la partie mise en forme est grisée ...

Savez-vous comment je pourrai faire ?

Merci à vous.

Bonjour,

D'ordinaire pour protéger des cellules ou des colonnes on ne passe pas par du vba

Vu que l'option excel existe !

Sélection des colonnes à ne pas protéger

ensuite clic droit format cellules

dans l'onglet protection décocher verrouillée.

Il ne reste plus qu'à aller dans l'onglet révision pour protéger la feuille en cochant l'option autoriser "Format cellule"