XL 2010 Cellule changement de couleur double clic

jokerfidelio · 14 Novembre 2016

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 ?

VB:

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 · 14 Novembre 2016

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 · 14 Novembre 2016

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 · 14 Novembre 2016

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 · 14 Novembre 2016

Voici le code que j'ai copier :

Code:

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 · 14 Novembre 2016

autant pour moi c'est mieux ainsi :

Code:

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

XL 2010 Cellule changement de couleur double clic

jokerfidelio

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

jokerfidelio

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

jokerfidelio

XLDnaute Occasionnel

jokerfidelio

XLDnaute Occasionnel

Discussions similaires

XL 2010 Cellule changement de couleur double clic

jokerfidelio

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

jokerfidelio

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

jokerfidelio

XLDnaute Occasionnel

jokerfidelio

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency