Bonjour
dans une feuille protégée j'ai mis un code pour pouvoir changer la couleur de cellules déverrouillées par un double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.Color = vbYellow
End Sub
puis un autre code pour protéger la feuille mais en même temp me laisser la possibilité de changer la couleur de cellules déverrouillées par un double clic
Sub protege()
'***********************************************************
'EMPECHE LE DÉFFILEMENT INTEMPESTIF
'***********************************************************
Application.ScreenUpdating = False
Union(Range( _
"AB7:AB8,AB13:AB14,AB36:AB37,C7:C8,C10:C11,C13:C14,C16:C17,C19:C20,C22:C23,C25:C26,C28:C29,J7:J8,J10:J11,J13:J14,J16:J17,J19:J20,J22:J23,J25:J26,J28:J29,J36:J37,N7:N8,N10:N11,N13:N14,N16:N17,N19:N20,N22:N23,N25:N26,U7:U8,U10:U11,U13:U14,U16:U17,U19:U20" _
), Range("U22:U23,U25:U26,U28,U36:U37,X24")).Select
Range("AB36").Activate
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
Range("J7:J8").Select
Application.WindowState = xlMaximized
End Sub
j'ai utiliser la fonction AllowFormattingCells:=True mais Y'a-t-il un moyen pour que la cellule x24 ne change pas de couleur apres un double clic
merci d'avance pour vos réponse
cordialement