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

Résolu
Dm -  
 Dm -
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
A voir également:

3 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
 
1
Dm
 
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é!!
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

nom de la feuille etait a remplacer par le nom de votre feuille entre ""
0
Dm > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup, Ça marche parfaitement.
0