Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Feuille protégée

Feuille protégée

6 réponses
Avatar
Patrick Fredin
Bonjour,

Est-il possible de savoir si une feuille est protégée ?

Merci pour votre aide.


--
Patrick
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Aurélien29
outils>>protection>>

Si tu vois Protéger la feuille, ça veut dire qu'elle est pas protéger
idem avec le classeur



Bonjour,

Est-il possible de savoir si une feuille est protégée ?

Merci pour votre aide.


--
Patrick





Avatar
Pounet95
Bonsoir Patrick,
Ceci peut-être

Sub x()
Dim fs As Worksheet
For Each fs In Sheets
Debug.Print fs.Name, fs.ProtectContents
Next
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Patrick Fredin" a écrit dans le
message de news: eweoC7K$
Bonjour,

Est-il possible de savoir si une feuille est protégée ?

Merci pour votre aide.


--
Patrick



Avatar
GVentre
Bonjour Patrick Fredin,

Dans le menu, Outils>Protection, si "protéger la feuille": la feuille
n'est pas protéger, si "ôter la protection de la feuille": la feuille
est protéger.

Cordialement,

GVentre



Bonjour,

Est-il possible de savoir si une feuille est protégée ?

Merci pour votre aide.






Avatar
Patrick Fredin
Merci. J'avais oublié de préciser que c'était en VBA que je voulais le
détecter. Tu as bien deviné.

--
Patrick

"Pounet95" wrote in message
news:ubE%23XAL$
Bonsoir Patrick,
Ceci peut-être

Sub x()
Dim fs As Worksheet
For Each fs In Sheets
Debug.Print fs.Name, fs.ProtectContents
Next
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Patrick Fredin" a écrit dans le
message de news: eweoC7K$
Bonjour,

Est-il possible de savoir si une feuille est protégée ?

Merci pour votre aide.


--
Patrick






Avatar
Pounet95
Re,
En y regardant de plus près, il est possible que ce ne soit pas suffisant.
Ce que je t'ai indiqué retourne Vrai si le contenu des cellules est protégé,
pour les objets et les scenarii
il faut utiliser :
fs.ProtectScenarios,
fs.ProtectDrawingObjects
Comme a priori, le résultat est à Vrai ( si option cochée ) que lorsque la
feuille est protégée, il faut
par sûreté employer les 3 pour pouvoir l'affirmer.
A vérifier ....

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Patrick Fredin" a écrit dans le
message de news: %23%233QUFL$
Merci. J'avais oublié de préciser que c'était en VBA que je voulais le
détecter. Tu as bien deviné.

--
Patrick

"Pounet95" wrote in message
news:ubE%23XAL$
Bonsoir Patrick,
Ceci peut-être

Sub x()
Dim fs As Worksheet
For Each fs In Sheets
Debug.Print fs.Name, fs.ProtectContents
Next
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Patrick Fredin" a écrit dans le
message de news: eweoC7K$
Bonjour,

Est-il possible de savoir si une feuille est protégée ?

Merci pour votre aide.


--
Patrick










Avatar
AV
feuille est protégée, il faut
par sûreté employer les 3 pour pouvoir l'affirmer.


Exact :
Sub zz_TestProtect2()
With ActiveSheet
If .ProtectContents + .ProtectDrawingObjects + .ProtectScenarios <> 0 _
Then MsgBox "Feuille protégée !"
End With
End Sub

AV