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.