Feuille protégée ou pas.

Staple1600

XLDnaute Barbatruc

• 1 Août 2016

• #2

Bonsoir à tous

Une possibilité

VB:

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

 

Vote positif 0 Vote négatif

alexandre33260

XLDnaute Occasionnel

• 1 Août 2016

• #3

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Août 2016

• #4

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

 

Vote positif 0 Vote négatif

alexandre33260

XLDnaute Occasionnel

• 1 Août 2016

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Août 2016

• #6

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

 

Vote positif 0 Vote négatif

alexandre33260

XLDnaute Occasionnel

• 1 Août 2016

• #7

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Août 2016

• #8

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]

 

Vote positif 0 Vote négatif

alexandre33260

XLDnaute Occasionnel

• 1 Août 2016

• #9

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é.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Août 2016

• #10

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

 

Dernière édition: 1 Août 2016

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 1 Août 2016

• #11

Bonjour à tous,
Salut l'Agrafe,

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

A+ à tous

 

Pièces jointes

• JC_JM Test Protection.xlsm

  19.6 KB · Affichages: 32

Vote positif 0 Vote négatif

alexandre33260

XLDnaute Occasionnel

• 1 Août 2016

• #12

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

 

Vote positif 0 Vote négatif