Erreur lors du changement de couleur d'une cellule

Bob0876 Messages postés 41 Statut Membre -  
Bob0876 Messages postés 41 Statut Membre -
Bonjour,

je recoit une erreur('9' : l'indice n'apartient pas a la selection) lorsque j'execute le programme .

Private Sub Workbook_Open()

Dim pass As String

ThisWorkbook.Worksheets("Donées").Range("A6:A7").font.Color = 3

pass = ActiveSheet.Cells(1, 7).Value

protege

ActiveSheet.Shapes("bouton").Visible = False

motdepasse.Show

couleur

End Sub


Merci
A voir également:

2 réponses

ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

Essaies comme ceci
Sheets("Donées").Range("A6:A7").Font.ColorIndex = 3


Cdlmnt
0
Bob0876 Messages postés 41 Statut Membre
 
Bonjour,

merci mais j'ai trouver l'erreur. Ces que ma feuille est protégé par un mot de pass.

cependant, j'ai un autre problème. j'aimerais deprotege ma feuille sans qui me demande d'entrée le mot de passe. J'ai fais ceci :

Private Sub Workbook_Open()

Dim pass As String

pass = Worksheets("Données").Cells(1, 7).Value

ActiveSheet.Unprotect

Worksheets("Données").Unprotect Password:=pass

Worksheets("Données").Range("F1:G1").Interior.ColorIndex = 2

Worksheets("Données").Protect Password:=pass

ActiveSheet.Protect

protege

ActiveSheet.Shapes("bouton").Visible = False

motdepasse.Show

bouton

End Sub

Mais il me demande quand meme le mot de passe!!!
0