Protection de la feuille
Résolulitchoutsou Messages postés 90 Statut Membre -
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.CountLarge > 1 Then Exit Sub 'CountLarge, car le nombre de cellules dépasse la capacité de Count
If Not Intersect(Target, Range("AJ3:AJ100")) Is Nothing Then
Range("AJ3:AJ100").Resize(, 2).Interior.Color = vbWhite
Target.Resize(, 2).Interior.Color = RGB(255, 255, 0)
End If
Fin:
End Sub
salut à tous, j'ai cette formule qui fonctionne très bien, mais lorsque je protège une partie de la feuille avec un mot de passe elle ne fonctionne plus; est-ce possible quelle fonctionne même avec la protection?
MERCI DE VOTRE AIDE
- Protection de la feuille
- K9 web protection - Télécharger - Contrôle parental
- Feuille de pointage excel - Télécharger - Tableur
- Bruler feuille de laurier - Guide
- Protection en ecriture kodak - Forum Windows
- Verrouiller cellule excel sans verrouiller la feuille - Guide
8 réponses
Bonjour,
Vous devez désactiver la protection de la feuille au début des instructions la réactiver
avant le end sub
'Protection avec mot passe ("monmot2passe")
ActiveSheet.Protect Password:="monmot2passe", DrawingObjects:=True, Contents:=True, Scenarios:=True
'Enlever la protection;
ActiveSheet.Unprotect ("monmot2passe")
Merci de m'avoir réponndu aussi vite, c'est super et ça fonctionne, mais si je veux qu'une partie du fichier reste toujours protéger est-ce possible ?
oui mais j'ai un souci, lorsqu'une partie de la feuille est verrouillé le lien qui va sur AJ3 ne se colori pas en jaune n'y AK3
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Pouvez vous expliquer la procédure pour colorer la cellule?
Dans le cas ou la coloration dépend de la MFC alors pas de problème.
je vous joins un modèle de fichier vous comprendrez mieux que je ne le saurai l'expliquer
https://www.cjoint.com/c/NAytzFOVIlb
Merci de votre aide car vous m'avez bien dès fois aider.
