Erreur lors du changement de couleur d'une cellule
Bob0876
Messages postés
41
Statut
Membre
-
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 .
Merci
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
2 réponses
-
Bonjour
Essaies comme ceciSheets("Donées").Range("A6:A7").Font.ColorIndex = 3
Cdlmnt -
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!!!
