Feuille protégée ou pas.

[alexandre33260]

Bonjour, comment faire pour inscrire en A1 par exemple :
Feuille protégée (si la feuille l'est)
ou
Feuille non protégée (si elle ne l'est pas)
Je pense qu'il faut utiliser une Macro, mais qu'inscrire ???
Merci pour votre aide.

 

[Staple1600]

Bonsoir à tous

Une possibilité

Function etatprot(f As Worksheet) As Boolean
etatprot = f.ProtectContents
End Function
Sub Macro1()
MsgBox etatprot(ActiveSheet)
End Sub

 

[alexandre33260]

J'avais oublié de vous dire, j'ai cherché un petit peu avant, mais comme je parle le VBA comme un gosse de 6 mois à peine...
Je penses qu'il faut utiliser la phrase :
activeSheet.ProtectContents
dans la formule et y inclure un False et un True !!!
Quelques IF, quelques THEN.
Mais alors comment ? Quelle galère !

C'est pas parce-qu’on a les ingrédients que l'on arrive à faire la bonne salade.

Encore merci pour votre aide.

 

[Staple1600]

Tu n'as pas vu mon précédent message ???

 

[alexandre33260]

Désolé, je ne comprends pas comment l'utiliser, je suis un néophyte en VBA...

 

[Staple1600]

Re

Personnellement un membre du forum inscrit depuis 2007 n'est pas pour moi un néophyte...
Il te suffit te copier les codes VBA précédemment soumis et de lancer la macro nommée Macro1

 

[alexandre33260]

Néophyte en VBA, pas sur Excel, un conducteur de voiture n'est pas forcément capable de faire du rallye ou de la formule 1, pourtant, ça à un moteur, 4 roues et une carrosserie. Le turbo, le V8 et tout le reste, c'est comme VBA et tout le monde n'est pas forcément capable de le dompter.

 

[Staple1600]

Re

Tu as essayé la macro ou pas ?

[il enfonce le clou mais sans animosité aucune]
PS: 2016-2007= 9 ans
A raison d'une heure de VBA par jour durant 9 ans, ou même d'une heure par mois , assurément non on ne peut se targuer d'être néophyte
[/il enfonce le clou mais sans animosité aucune]

 

[alexandre33260]

J'ai créé une nouvelle feuille, j'ai fait Alt+F11 et j'ai collé le code. Quand j'ai cliqué sur le sigle PLAY, cela a ouvert une fenêtre disant FAUX...
Ce que je voulais c'est un message en cellule A1 dissant "Feuille protégée" ou "Feuille déprotégée" en fonction de la protection de la feuille, j'ai pas du tout comprendre... désolé.

 

[Staple1600]

Re

Protège d'abord ta feuille puis lance la macro
Sinon (dommage que tu n'ais pas approfondi tes recherches dans les archives du forum...)
Voir cette discussion d'antan
http://www.excel-downloads.com/threads/connaitre-létat-de-protection-dune-feuille.170789/
EDITION: Je viens de tester la solution de Tempus Fugit (sans macro mais en utilant le langage macro XL4)
Test OK sur Excel 2013

 

[JCGL]

Bonjour à tous,
Salut l'Agrafe,

Avec le code de Staple1600
Modification de A1 à l'activation de la feuille

A+ à tous

 

[alexandre33260]

Merci beaucoup pour le temps passé , je dois aller travailler, désolé, je regardes ça demain. Encore merci pour votre aide.