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

Connaitre l'état de protection d'une feuille

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

michir

XLDnaute Occasionnel
Bonjour,
je cherche à connaître l'état de protection d'une feuille avec affichage dans une cellule "Protégé" ou "Déprotégé"
J'ai un début de solution donné par un contributeur sympa, mais je ne sais trop le mettre en oeuvre
J'aimerais une solution VBA pas trop compliquée
Je suis sous Excel 2010
j'ai des macros dans mes feuilles . Elles sont toutes identiques . J'aimerais que pour chaque feuille s'affiche l'état de protection en A1
Merci à tous
Michel
 
Trier par date Trier par votes
Re : Connaitre l'état de protection d'une feuille

Oui, merci JB, mais je la mets où (module, feuille, workbook ?) et pour afficher le résultat "protégé" ou "déprotégé" dans une celle A1 par exemple ?
La macro doit être opérationnelle sur 15 feuilles du classeur nommées jour 1 à jour 15 et elles comportent des macros
je suis sous excel 2010
 
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Merci JB
Comment dois je intégrer ta ligne de code (où la placer) et comment faire si je souhaite un affichage de l'état "déprotégé" ou "protégé"en A1 par exemple et en temps réel
J'ai 15 feuilles nommées Jour 1 à Jour 15 à suivre et elles comportent des macros
 
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

JB ta fonction fonctionne parfaitement, je suis néanmoins obligé de cliquer dans une cellule pour que Excel prenne en compte la macro. Peut on éviter cela ?
 
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

-Si la protection est activée/désactivée manuellement, c'est non!
-Si la protection est activée/désactivée par une macro, c'est possible.

JB
 
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Bonsoir,

autre possibilité : macro lancée à l'activation de la feuille ( dans ThisWorkbook)
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error GoTo fin
    [A1] = "déprotégée"
    Exit Sub
fin:
    Sh.Unprotect
    [A1] = "protégée"
    Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    On Error GoTo 0
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Bonjour


J'ai testé sur Excel 2003
Si cela fonctionne pas, c'est que le nom a été mal défini.

Tu as bien fait Insertion/Noms/Définir ?
Dans Noms dans le classeur
Mettre PROTECTION (ou le nom de son choix)
Dans Fait Référence à:
Mettre : =LIRE.DOCUMENT(7)
Puis cliquer sur Ajouter puis sur OK.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Bonjour JB
Pourrais tu me dépanner ? Ta fonction FonctionProtect fonctionne bien sur les feuilles que je lui ai assignées (jour 1 à jour 15) mais lorsque j'ouvre une au=tre feuille non concernée par la macro, elle me renvoie une erreur de débogage concernant la ligne:
If Application.Match(Sh.Name, Array("jour 1", "jour 2", "jour 3", "jour 4", "jour 5", "jour 6", "jour 7", "jour 8", "jour 9", "jour 10", "jour 11", "jour 12", "jour 13", "jour 14", "jour 15", "jour 16", "jour 17", "jour 18"), 0) > 0 Then Calculate
Je n'ai pas de solution
Merci
Michel
 
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Bonjour..suite
La fonction de JB (plus haut FonctionProtect) me convient bien mais la ligne de code suivante:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Calculate
End Sub
...m'interdit de faire du copier-coller. Auriez vous une idée ?
 
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Bonsoir,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsError(Application.Match(Sh.Name, Array("jour1", "jour2", "jour3"), 0)) Then Calculate
End Sub


jb
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Bonjour TempusFugit, le forum,


J'ai mis exactement comme ce que tu as mentionné, mais ça ne fonctionne pas.

Mais ce n'est pas grave, je vois que la version de Boisgontier marche très bien.

A+
 
Vote positif 0 Vote négatif
Re : Connaitre l'état de protection d'une feuille

Bonjour TempusFugit, le forum,

Chez moi, sous Excel 2010, ça ne fonctionne pas non plus.

Peut être que je m'y prend mal.
Fais passer un fichier, comme ça je pourrai tester.

A+
 
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

S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
798
steph_29120
S
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
352
Sylvia57
S
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
528
Phil69970
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
848
Nel'
N
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
611
Lu76Fer
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
636
Oneida
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
4 K
crocrocro
C
C
  • Résolu(e)
XL 2013 [Résolu] Tri VBA en fonction d'une liste déroulante !
Réponses
8
Affichages
2 K
casualexcel
C
W
  • Question Question
XL 2010 macro pour détecter protection de la feuille
Réponses
3
Affichages
845
whiteshark
W
A
  • Résolu(e)
Microsoft 365 Report d'une cellule si valeur égale
Réponses
9
Affichages
2 K
Anaelle_bb
A
  • Question Question
XL 2019 Afficher ou masquer une forme selon l'état visibilité d'une feuille.
Réponses
4
Affichages
2 K
mapomme
R
  • Question Question
XL 2013 Si une colonne contient le mot x, copier la ligne vers une autre feuille Répondre
2
Réponses
25
Affichages
6 K
roki
R
F
  • Question Question
XL 2019 Calculer nombre de jours entre deux dates d'une base de donné
Réponses
6
Affichages
1 K
CISCO
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
A
  • Question Question
XL 2013 Utilisation de la fonction "Case" dans VBA
Réponses
12
Affichages
1 K
AnjyD
A
P
  • Question Question
Microsoft 365 Copie Lignes autre feuille sous condition Menu
Réponses
7
Affichages
1 K
Pat13127
P
W
  • Résolu(e)
Microsoft 365 VBA : Déplacer une sélection de feuilles dans un nouveau classeur
Réponses
4
Affichages
3 K
WhatIsVBA
W
C
  • Résolu(e)
XL 2010 extraire des données d'une feuille pour les envoyer sur une autre
2
Réponses
20
Affichages
2 K
cgpa
C
G
  • Question Question
Microsoft 365 Echange d'information entre 2 feuilles
Réponses
9
Affichages
1 K
djidji59430
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…