Bonjour à tous,
Lorsque je protège par macro une ou plusieurs feuille est -il possible une
feuille nommée saisie d'avoir un message m'indiquant l'état de la
Protection. Par exemple 'Votre classeur est protégée' 'Votre classeur est
libre'
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut Pascal
1er approche Saisie!A1 étant déverouillé
à mettre dans le module de la feuille Saisie
Private Sub Worksheet_Activate() For Each w In Worksheets If w.ProtectContents = True Then [Saisie!A1] = "Au moins une feuille est protégée" Exit Sub End If Next [Saisie!A1] = "Pas de feuille protegée" End Sub a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Pascal" a écrit dans le message de news:
Bonjour à tous, Lorsque je protège par macro une ou plusieurs feuille est -il possible une feuille nommée saisie d'avoir un message m'indiquant l'état de la Protection. Par exemple 'Votre classeur est protégée' 'Votre classeur est libre'
Merci
Pascal
Salut Pascal
1er approche Saisie!A1 étant déverouillé
à mettre dans le module de la feuille Saisie
Private Sub Worksheet_Activate()
For Each w In Worksheets
If w.ProtectContents = True Then
[Saisie!A1] = "Au moins une feuille est protégée"
Exit Sub
End If
Next
[Saisie!A1] = "Pas de feuille protegée"
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Pascal" <Zork.NOSSWEN@tropcurieurx.com> a écrit dans le message de news:
e7ohOB2qDHA.2632@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Lorsque je protège par macro une ou plusieurs feuille est -il possible une
feuille nommée saisie d'avoir un message m'indiquant l'état de la
Protection. Par exemple 'Votre classeur est protégée' 'Votre classeur est
libre'
Private Sub Worksheet_Activate() For Each w In Worksheets If w.ProtectContents = True Then [Saisie!A1] = "Au moins une feuille est protégée" Exit Sub End If Next [Saisie!A1] = "Pas de feuille protegée" End Sub a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Pascal" a écrit dans le message de news:
Bonjour à tous, Lorsque je protège par macro une ou plusieurs feuille est -il possible une feuille nommée saisie d'avoir un message m'indiquant l'état de la Protection. Par exemple 'Votre classeur est protégée' 'Votre classeur est libre'
