Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 couleur cellule A1 suivant la protection de la feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bendv
  • 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 !

S'inscrire
B

bendv

XLDnaute Nouveau
Bonjour à tous,
J'aimerai trouver une solution pour avoir la cellule A1 qui soit en rouge quand ma feuille est protégée et en vert quand elle est déprotégée.
Actuellement je protége toutes mes feuille du classeur avec ce code.

Sub Locked()

For i = 1 To Sheets.Count
Sheets(i).Protect Password:="0000"

Next
End Sub

Sub Unlocked()

For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="0000"

Next
End Sub

Auriez vous une solution ?

Merci d'avance pour votre temps
 
Trier par date Trier par votes
Bonjour,
Si j'ai bien compris la demande
Code: 
Sub Locked()
    For i = 1 To Sheets.Count
        Sheets(i).Protect Password:="0000"
        Sheets(i).Range("A1").Interior.Color = RGB(255, 0, 0)       'Remplissage Rouge
    Next
End Sub

Sub Unlocked()
    For i = 1 To Sheets.Count
        Sheets(i).Unprotect Password:="0000"
        Sheets(i).Range("A1").Interior.Color = RGB(0, 176, 80)      'Remplissage Vert
    Next
End Sub
@+ Lolote83
 
Vote positif 0 Vote négatif
Bonjour Bendv, Lolote,
Par ex comme ceci :
VB: 
Sub Couleur()
For i = 1 To Sheets.Count
    If Sheets(i).ProtectContents = True Then
        Sheets(i).Unprotect Password:="0000"
        Sheets(i).[A1].Interior.Color = vbRed
        Sheets(i).Protect Password:="0000"
    Else
        Sheets(i).[A1].Interior.Color = vbGreen
    End If
Next
End Sub
A appeler dans vos procédures :
Code: 
Sub Locked()
For i = 1 To Sheets.Count
    Sheets(i).Protect Password:="0000"
    Couleur
Next
End Sub
Sub Unlocked()
For i = 1 To Sheets.Count
    Sheets(i).Unprotect Password:="0000"
    Couleur
Next
End Sub
 
Vote positif 0 Vote négatif
@Lolote,
VB: 
Sheets(i).Protect Password:="0000"
Sheets(i).Range("A1").Interior.Color = RGB(255, 0, 0)       'Remplissage Rouge
La feuille étant protégée on ne peut pas modifier la couleur de A1.
et comme la feuille au départ est protégée ou non, on est obligé de tester avant de mettre la couleur.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
310
thunder23
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
133
JUAN45
J
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
132
sylvanu
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
284
crocrocro
C
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
199
Lu76Fer
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
407
Webperegrino
W
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
487
patricktoulon
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
229
piga25
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
479
CortoXls
C
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
915
laurent950
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
199
sylvanu
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
154
Lu76Fer
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
347
patricktoulon
P
  • Question Question
Microsoft 365 sauvegarder en JPG
Réponses
12
Affichages
703
PISTACHE-007
P
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
406
TooFatBoy
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
672
job75
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
507
Aya_flo
A
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
242
KRUG WOO
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…