Erreur lors du changement de couleur d'une cellule Fermé

Question

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

ccm81 · Answer

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

Bob0876 · Answer

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

Erreur lors du changement de couleur d'une cellule

2 réponses

Discussions similaires