XL 2010 Cellule changement de couleur double clic

[jokerfidelio]

Bonjour a tous,

Suite a une recherche sur le forum j'aimerais adapter ce code, qui fonctionne tres bien mais lorsque
je protège mes cellules avec un mot de passe, j'ai un message d'erreur.
Comment rendre ce code compatible avec la protection des cellules ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("G14:H90")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 46 Then
Selection.Interior.ColorIndex = 48
Else
Selection.Interior.ColorIndex = 46
End If
End With
End If
End Sub

Merci de votre aide.

 

[phlaurent55]

Bonjour joker.....

Il est nécessaire de déprotéger au début de la procédure

UnProtect PassWord:="toto"

et re-protéger en fin de procédure

 

[jokerfidelio]

Le problème c'est qu'a l'ouverture du fichier il est dé protégé de suite !
Y a t'il une autre solution, je dit peu etre des betise mais un bouton avec l'action de cette macro au moment voulu ?

 

[chris]

Bonjour
Coucou l'artiste

Si fait comme indiqué en début et fin de ta procédure , cela n'agit pas sur sur l'ouverture.

Mais ta prodécure n'est pas un double clic...

 

[jokerfidelio]

Voici le code que j'ai copier :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Unprotect Password:="TOTO"
If Not Application.Intersect(Target, Range("G14:H90")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 46 Then
Selection.Interior.ColorIndex = 48
Else
Selection.Interior.ColorIndex = 46
Protect Password:="TOTO"
End If
End With
End If
End Sub

 

[jokerfidelio]

autant pour moi c'est mieux ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Unprotect Password:="TOTO"
If Not Application.Intersect(Target, Range("G14:H90")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 46 Then
Selection.Interior.ColorIndex = 48
Else
Selection.Interior.ColorIndex = 46
End If
End With
End If
Protect Password:="TOTO"
End Sub