Comment savoir si une feuille est protégée

[marmotte18]

Bonjour

J'aimerais pouvoir afficher la liste des feuilles d'un classeur en indiquant celles qui sont protégées de celles qui ne le sont pas.

Merci par avance de votre aide

 

[Guest]

Re : Comment savoir si une feuille est protégée

Bonjour,

Essaie ceci:

[COLOR=blue]Sub[/COLOR] ListeFeuilleETProtection()
    [COLOR=blue]Dim[/COLOR] sh [COLOR=blue]As[/COLOR] Worksheet
    [COLOR=blue]Dim[/COLOR] res(): [COLOR=blue]ReDim[/COLOR] res(1 To Worksheets.Count, 1 To 2)
    [COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR]
    [COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] sh [COLOR=blue]In[/COLOR] Worksheets
        i = i + 1
        res(i, 1) = sh.Name
        res(i, 2) = sh.ProtectContents
    [COLOR=blue]Next[/COLOR] sh
    Range([I]"A1"[/I]).Resize([COLOR=blue]UBound[/COLOR](res), 2) = res
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

A+

 

[job75]

Re : Comment savoir si une feuille est protégée

Bonjour marmotte18, salut Hasco

Juste légèrement différent :

Sub DetectProtection()
Dim s As Object, txt$
For Each s In Sheets
  txt = txt & s.Name & " : " & IIf(s.ProtectContents, "", "non ") & "protégée" & Chr(10)
Next
MsgBox txt
End Sub

A+

 

[marmotte18]

Re : Comment savoir si une feuille est protégée

Bonjou Hasco,

Merci pour ta réponse. Elle fonctionne très bien !

 

[marmotte18]

Re : Comment savoir si une feuille est protégée

Bonjour Job75,

Pour toi aussi, un grand MERCI. C'est impécable !