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

Question

Bonjour,
Quelqu'un pourrait-il m'aider à compléter le code ci-après pour changer la couleur d'une cellule sur une feuille protégée par un mot de passe.

ActiveSheet.Cells(ligne,col).intérieur.color = RGB(174, 240, ,194)

Merci

Mike-31 · Answer

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

f894009 · Answer

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

Dm · Answer

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é!!

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

3 réponses

Discussions similaires