XL 2021 mise en forme conditionnelle feuille non protégée

  • Initiateur de la discussion Initiateur de la discussion marco22
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

marco22

XLDnaute Occasionnel
Bonjour
J'aimerai mettre en couleur et avec un message une ou plusieurs cellules quand la feuille n'est pas protégée.
Je suppose qu'il faut le faire avec mise en forme conditionnelle, mais je ne sais pas comment faire.
Merci
 
Bonjour Marco,
à ma connaissance, pas possible sans passer par du VBA.
EDIT : J'ai inversé la condition 😡
je corrige donc
Le code ci-dessous en proposition avec comme règles :
- la mise en évidence concerne les cellules sélectionnées
- si pas de protection, les cellules sont surlignées en vert
- si protection (avec changement de format de cellules autorisé), les cellules sont sans remplissage
- si protection (avec changement de format de cellules non autorisé), juste un message.


VB:
Sub MiseEnEvidenceSiProtection()

Dim MaPlage As Range
    Set MaPlage = Selection
  
    If ActiveSheet.ProtectContents Then
        If ActiveSheet.Protection.AllowFormattingCells Then
           MaPlage.Interior.ColorIndex = xlColorIndexNone
            MsgBox "La feuille est protégée -> Cellules de la Sélection sans couleur de remplissage : " & MaPlage.Address
        Else
            MsgBox "La feuille est protégée (mise en forme des cellules non autorisée) -> Cellules de la Sélection : " & MaPlage.Address
        End If
    Else
        MaPlage.Interior.Color = RGB(0, 255, 0)
        MsgBox "La feuille n'est pas protégée -> Cellules de la Sélection en Vert : " & MaPlage.Address
    End If
  
End Sub
 
Dernière édition:
Bonjour à tous

@crocrocro
Si c'est possible sans macro et avec une MFC 😉
à ma connaissance, pas possible sans passer par du VBA.

@marco22
Je te propose ce fichier exemple qui le confirme
J'aimerai mettre en couleur et avec un message une ou plusieurs cellules quand la feuille n'est pas protégée.

Par contre pour avoir un message il faut protéger la feuille (sans mot de passe c'est suffisant)

Et bien sur on peut inversé la condition de la MFC pour repérer uniquement les cellules verrouillées

Merci de ton retour
 

Pièces jointes

Bonjour et merci "crocrocro" et "Phil69970"
Je me suis sans doute mal exprimé dans ma demande
Ce que je voudrai c'est quand la feuille est déverrouillée que soit il a un message pour prévenir que la feuille est déverrouillée ou les cellules K6:L69 sont de couleur rouge pour les feuilles 2ème partie, 3ème partie et, 4ème partie.
j'ai fait une petite macro pour verrouillé et une autre pour déverrouiller
Je pense que simplement colorier les cellules en rouge serai suffisant
J'ai besoin de déverrouiller pour pouvoir modifier des rencontres
je ne sais pas si c'est plus clair pour vous
je joins le fichier

merci
 

Pièces jointes

Re

@marco22

Je me suis sans doute mal exprimé dans ma demande
Je confirme ton impression 😉

Perso tu prends le problème à l'envers si tu as peur que quelqu'un déprotège ta feuille je vois sans trop réfléchir 2 solutions.

1ere solution :
Tu mets un MDP sur chaque feuille

2eme solution
Tu verrouilles la feuille chaque fois que tu vas sur une feuille voir fichier
J'ai fait l'exemple sur les 4 feuilles partie N° X
Donc des que tu vas sur une des 4 feuilles partie N° X ta feuille est verrouillé bien sur on peut toujours la déverrouillé mais des que l'utilisateur change de feuille elle se verrouille en activant l'une des 4 feuilles partie N° X
(La protection se fait uniquement sur ces 4 feuilles libre à toi de le faire sur toutes les feuilles )


1722875008771.png


Merci de ton retour
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
130
Réponses
2
Affichages
101
Retour