Connaitre l'état de protection d'une feuille

[michir]

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

 

[michir]

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

 

[BOISGONTIER]

Re : Connaitre l'état de protection d'une feuille

voir pj

jb

 

[michir]

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

 

[michir]

Re : Connaitre l'état de protection d'une feuille

excuses JB, nos messages ce sont croisés. Merci à toi et à tous

 

[michir]

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 ?

 

[BOISGONTIER]

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

 

[Fo_rum]

Re : Connaitre l'état de protection d'une feuille

Bonsoir,

autre possibilité : macro lancée à l'activation de la feuille ( dans ThisWorkbook)

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

 

[TempusFugit]

Re : Connaitre l'état de protection d'une feuille

Bonjour

Bonjour michir, TempusFugit, tototiti,

Pour la fonction lire-document, sur mon pc du boulot, elle ne fonctionne ni sous Excel 2003 ni sous Excel 2007.
Il y a peut être une référence à mettre dans VB.
La fonction de tototiti fonctionne parfaitement avec 2007.

Yaloo

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.

 

[michir]

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

 

[michir]

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 ?

 

[michir]

Re : Connaitre l'état de protection d'une feuille

...ta ligne de code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
...m'interdis le copier-coller......

 

[BOISGONTIER]

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

 

[Yaloo]

Re : Connaitre l'état de protection d'une feuille

Bonjour TempusFugit, le forum,

Bonjour

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.

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+

 

[TempusFugit]

Re : Connaitre l'état de protection d'une feuille

Bonjour


Cela fonctionne sur Excel 2003.

Peut-être que d'autres qui utilisent Excel 2010 pourront nous dire si cela fonctionne définitivement pas sur Excel 2010.

 

[Yaloo]

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+