Changer la couleur d'une cellule sur une feuille protégée par un password

Bonjour,

Lorsque tu protèges ta feuille, (Format/Protéger la feuille/coche l'option Format de cellule
et si tu protèges ta feuille avec une macro, le code est

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True

Bonjour,
Si VBA:

  ActiveSheet.Cells(ligne, col).Interior.Color = RGB(174, 240, 194)

Erreur si feuille protegee.
Deux solutions:
1/ enlever protection par code et proteger en fin d'execution de ce code

2/ Protection Userinterface qui permet d'ecrire des cellules protegees sans enlever la protection

'code de protection feuille sans avoir a deproteger pour ecrire dans les cellules
'A mettre dans VBA de ThisWorbook
Private Sub Workbook_Open()
        With Worksheets(nom de la feuille)
            .Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True, userInterfaceOnly:=True
            .EnableSelection = xlNoSelection        'pas de selection cellule
        End With
End Sub
 

Merci beaucoup pour les deux solutions:

-Solution de Mike 31: elle marche très bien pour protéger une feuille mais sans mot de passe.

- Solution de f894009:
Elle marche très bien avec mot de passe, mais j'ai dû remplacer "with worksheets"par with activesheet pour qu'elle marche. Car il donnait une erreur d'incompatibilité.
Merci infiniment à tous pour disponibilité!!